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Vol  19,  No.  7,  July  1980. 

4.  Electronic  Design.  Vol.  28,  No.  6,  March  15,  1980. 

5.  Electronic  Design.  Vol.  28,  No.  12,  June  7,  1980. 

6.  Electronic  Design.  Vol.  28,  No.  13,  June  21,  1980. 

7.  Electronic  Design,  Vol.  28,  No.  14,  July  5,  1980. 

8.  Electronic  Design,  Vol.  28,  No.  16,  August  2  1980. 

9.  Electronics:  The  International  Magazine  of  Electronic 

Technology,  Vol.  53,  No.  9,  April  17,  1980. 
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>.  Electronics:  The  International  Magazine  of  Electronic 
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I .  Electronics;  The  International  Magazine- of  Electronic 

Technology,  Vol.  53,  No.  13,  June  5,  1980. 

J.  Electronics;  The  International  Magazine  of  Electronic 

Technology.  Vol.  53,  No.*  16,  July  17,  1980. 
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The  inf omation  to  prepare  this  bibliography  of  high  order  languages 
was  obtained  by  researching  the  journals  listed  below,  representing  the 
period  March  through  September  1980: 

Byte 

Communications  of  the  ACM 

Computer  Design 

Datamation 

SDN 

Electronics 

Electronics  Design 

Mini-Micro  Systems 

High  Order  Languages  —  General  Information:  Journal  articles 
that  contain  surveys,  comparisons,  discussion  and  general 
information  about  the  various  high  order  Languages. 

High  Order  Languages  —  Specific:  Journal  articles  that 
contain  information  about  specific  language 
characteristics  and  their  use  in  applications  programming. 

Microcomputer  Development  Systems:  Journal  articles  that 
contain  information  about  the  hardware  and  software 
characteristics  of  the  various  state-of-the-art  MDSs  that 
are  currently  available. 

In  Circuit  Emulation:  Journal  articles  that  discuss  the  uses 
and  types  of  in-circuit  emulator  as  a  product-develop¬ 
ment  and  interactive  debugging  facility. 

High  Order  Language  Philosophy:  A  collection  of  material  by 
several  authors  discussing  the  relative  merits  of  using 
KOLs  for  applications  development. 
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6.  Ogdin,  Carol  Ann,  "The  Many  Choices  In  Development  Languages," 
Mini-Micro  Systems,  Aug  1 980,  p.81 . 

7.  Reghizzi,  Stefano  Crespl,  "A  Survey  of  Microprocessor  Languages," 
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9.  Schindler,  Max,  "Pick  A  Computer  Language  That  Pits  The  Job," 
Electronic  Design,  Jul  19,  1980,  p.62. 

10.  Wecker,  D.B.,  R.L.,  Krutz,  &  D.T.,  Tuma,  "High  Level  Design 
Language  Develop  Low  Level  Microprocessor  -  Independent  Software,” 
Computer  Design,  Jun  1979,  p.140. 

Product  Advertisement 

11.  Scientific  Enterprises,  Inc.,  "The  Software  Synthesizer;  Lets  the 
Engineer  Take  a  Hardware  Approach  to  Program  Development,” 

Mini -Micro  Systems,  Jun  1980,  p.45. 
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7.  Miller,  Richard  4  Jill  Miller,  "Breakforth  into  FORTH!",  Byte. 
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18.  Marshall,  Martin,  "PL/1  Seeks  Popularity,"  Electronics. 
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27.  Systems  Engineering  Laboratories  Inc. ,  "FORTRAN  Compiler  (Surpasses 
the  ANSI  77  Standard),"  Electronics .  Aug  16,  1979,  p.135. 
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7.  Vestem  Digital  Corporation,  "Chip  Set  and  Development  Computer 
Execute  PASCAL  Object  Programs,"  Computer  Design.  May  1979,  p>250. 
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Tab  4 

Language  Documentation 


The  following  documents  have  been  ordered  to  support  this  study 
effort  and  have  been  received.  They  are  listed  in  alphabetical  order 
according  to  title. 


ACT  Assembler  User's  Manual.  Version  1.0,  Sorcim,  Juno  1980. 

Application  Note  Index,  Hewlett-Packard,  ad. 

"BC  —  An  Arbitrary  Precision  Desk-Calculator  Language,"  Lorinda  Cherry 
and  Robert  Morris,  Bell  Laboratories,  nd. 

BDSC  User’s  Cluide  Addenda  v1 .32  Edition.  Leor  Zolman,  BD  Software,  1960. 

BD  Software  C  Compiler  v1 .3  User* a  Ouide.  Leor  Zolman,  Lifeboat 
Associates,  1979. 

Beginner's  Guide  for  the  CCSD  PASCAL  System.  Kenneth  L.  Bowles, 

Books,  1980. 

C  Compiler  Systems  Interface  Manual  for  8080  Users.  Whitesmiths,  Ltd., 

1980. 

C  Compiler  User's  Manual.  Whitesmiths,  Ltd.,  1980. 

C  Compiler  v1 .3  User’s  Guide.  Zolman,  Leor,  BD  Software,  1979. 

"Computer  Modules,"  Product  Brief,  Zilog,  Ine.,  Kay  1980. 

Context  Editor  for  the  CP/K  Disk  System  User's  Manuel.  A,  Digital 
Research,  1960. 
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Th«  C  Prograamiag  Langmuw.  Birian  V.  Kernlnghan  and  Dennis  M.  Ritchie, 
Prentice-Hall,  1978. 

CP/M  Assembler  User's  Guide,  Digital  Research,  1978. 

CP/M  Dynamic  Debugging  Tool  (DDT)  User's  guide.  Digital  Research,  1978. 

CP/M  Features  and  Pacllities,  An  Introduction  to.  Digital  Research, 
1980. 


CP/K  MAC  Macro  Asaenbler  Language  Manual  and  Annllcationa  Suide, 

Digital  Research,  1980. 

CP/M  SID  Symbolic  Instruction  Debugger  User's  Suide.  Digital  Research, 

1978. 

CP/M  2.0  Interface  Guide,  Digital  Research,  1979* 

CP/M  2.0  User's  Snide.  Digital  Research,  1979* 

CP/M  2.2  Alteration  Guide,  Digital  Research,  1979* 

CP/M  Z3ID  Symbolic  Instruction  Debugger,  Z-80  Version .  Digital 
Research,  1979* 

C  Reference  Manual.  Dennis  M.  Ritchie,  Bell  Telephone  Laboratories, 

1975. 

CR  280;  B30  Relocating  Cross  Assesbler  (»lth  Cross  Reference),  The 

Boston  Systau  Office,  Inc.,  24  July  I960. 

"DC  —  An  ZnteractiYe  Desk  Calculator,"  Bell  Laboratories,  nd. 

BDIT  79:  A  STOIC  II  Prograsaing  Bxaanle.  Jeffrey  L.  Zuricow,  Avocet 
Systear.  Inc.,  1979. 

i! 

1! 
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8080/8085  Aaswnbly  Language  Prograamiag.  Intel  Corp.,  1979* 

Electronic  Inatrumenta  and  Syatema;  1980.  Hevlett-Packard ,  nd. 

"70RTH:  A  Coat  Saving  Approach  to  Software  Development,"  Elizabeth  D. 
Rather  and  Charles  H.  Moore,  PORTH,  Inc.,  1976. 

gORTRAM-77  User's  Manual.  SofTech,  1980. 

?0RTRAM-80  Reference  Manual.  Microsoft,  1979. 

?0RTRAg-80  User's  Manual.  Microsoft,  1979. 

"PORTRAN-aO  8080/8085  AHS  PORTRAH-77  Intellec  Resident  Compiler," 
Intel  Corp.,  1978. 

PORTRAH  lY.  Cromemco,  Inc.,  1979* 

PORTRAM  Lanuage  Manual,  Zilog,  Inc.,  September  1979« 

PORTRAH  User  Guide.  Revision  A,  Zilog,  Ino.,  October  1978. 

PORTRAH  User  Reference  Manual.  SofTech,  1980. 

Getting  Started  with  PASCAL/64000,  Hewlett-Packard,  nd. 

GHAT  System  10  Operator's  Handbook.  GHAT  Computers,  1980. 

GHAT  System  10  Reference  Manual,  Version  1.2,  GHAT  Computers, 

March  1980. 


A  Guide  to  Intellec  Microcomputer  Development  Systems .  Daniel  D. 
NoCraoken,  Intel  Corp.,  1978. 

A  Guide  to  PL/M  Programming  for  Microcomputer  Applications.  Daniel  D. 
McCraoken,  Addlson-Heslejr,  1978. 


IHFOSO?T  Aaaeabler  Manual,  Infosoft,  1979 


"Interactive  display  Terminal  (IDT)  Users'  Manual,"  Litton  Data 
Systems,  September  1977> 

Interaystems  Pascal/2;  A  Hi<|h  Level  Programming  Language. 
Intersystems,  1980. 

Introduction  to  RIO  Text  Processing.  Zilog,  Inc.,  July  1979. 

An  Introduction  to  STOIC.  Jonathan  M.  Sachs,  Biomedical  Engineering 
Center  for  Clinical  Instrumentation,  March  1978. 

Intellec  Series  II  Kieroeomnuter  Develornent  Systwn  Hardvare  Reference 
Manual.  Intel  Corp.,  1980. 

Introduction  to  Microprocessor  Components  Using  PL/Z.  Conway  et  al, 
Vinthrop,  1979. 

ISIS-II  ?0RTRAB-80  Compiler  Operator's  Manual.  Intel  Corp.,  1978. 

Link-80  Operator's  guide.  Digital  Research,  April  1980. 

"Logic  Analyser  Model  1615A,"  Technical  Data,  Hewlett-Packard, 

15  Mar  1980. 

"Logie  State  Analyser  for  Microprocessor  Based  Systems;  Model  1611  A," 
Technical  Data,  Hewlett-Packard,  15  December  1979* 

"Logic  State  Analyser  for  Mlnl/Nioro  Computer  and  Random  Logie 
Anal3rsi8t  Models  1610A/B,"  Technical  Data,  Hewlett-Packard, 

15  June  1979. 

"A  Manual  for  the  Ihg  Compiler-Writing  Language,”  M.D.  Mcllroy,  Bell 
Laboratories,  15  September  1972. 


"HCZ-1 /50:  Z80  Microcomputer  Systems,"  Product  Brief,  Zilog,  Inc., 

November  1979* 

"MCZ-1/70:  Z80  Microcomputer  System,"  Product  Brief,  Zilog,  Inc., 

November  1979« 

Microcomnuter  Components  Data  Book.  Zilog,  Inc.,  February  1980. 
Microsoft  Utility  Software .  Microsoft,  1978. 

"The  MG  Macro  Processor,"  Andrew  D.  Hall,  Bell  Telephone  Laboratories, 
Inc.,  June  1971. 

"NROFF  Users'  Manual,"  Joseph  F.  Ossanna,  Bell  Laboratories, 

11  September  1974. 

PASCAL/M  User's  Reference  Manual.  Sorcim,  1979. 

PASCAL/MT  User's  Manual.  MT  Microsystems,  1980. 

PASCAL  User  Guide,  Zilog,  November  1979* 

PASCAL  User  Manual  and  Report,  Kathleen  Jensen  and  Nlklaus  Virth, 
Springer-Verlag,  1974 

PASCAL/Z  User's  Manual.  Jeff  Moskow,  1980  (also  titled:  Intersystem' s 
PASCAL/Z.  A  High  Level  Programming  Language,  Version  3.0) • 

"FLM>d0  High  Level  Programming  Language  Intellee • Resident  Compiler," 
Intel  Corp.,  September  1976. 

PL/1-80  Apollcations  Guide.  Digital  Research,  1980. 

PL/1-60  Applications  Manual.  Digital  Research,  1980. 

PLMK  User's  Guide,  Systems  Consultatns,  Inc.,  1980. 
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PL/M-80  Programming  Manual.  Intel  Corp. ,  1 978. 


PL2  Linker  User  Guide,  Revision  A,  Zilog,  Inc.,  March  1980. 

PL2  Version  3  User's  guide,  Zilog,  Inc.,  1979. 

"The  Portable  C  Library  (on  UNIX),"  M.  B.  Leak,  Bell  Laboratories,  nd. 

Programming  in  C-A  Tutorial.  Brian  Vf.  Kemighan,  Bell  Laboratories, 

1975. 

"PROM  User's  Manual,  Revision  A,  Zilog,  July  1978. 

RATPOR-A  Preprocessor  for  a  Rational  PORTRAM,  Brian  W.  Kemighan,  Bell 
Laboratories,  1975. 

RATPOR-80..  A  High-Level  Preprocessor  for  PORTRAN.  Version  1.06,  The 
Software  Works,  1  February  1980. 

RATPOR  Reference  Manual,  Cromemco,  1979. 

Report  on  the  Programming  Language  PLZ/SYS,  Tod  Snook,  et  al.  Springe r- 
Verlag,  1978. 

RIO  Pile  Debugger;  Reference  Manual,  Zilog,  June  1979. 

RIO  Symbolic  Debugger  Reference  Manual,  Revision  B,  Zilog, 

November  1978. 

Serie8/80  Board  Level  Computer  Starplex  Development  System  Data  Book. 
January  1980. 

Software  Tools,  Briar  W.  Kemighan  and  P.  J.  Plauger,  Addison-Wesley 
Publishing  Co.,  1976. 

"A  System  for  Typesetting  Mathematics,"  B.  W.  Kemighan  and 
L.  L.  Cherry,  Bell  Laboratories,  nd. 


Systems  Data  Catalog  1980,  Intel  Corp.,  August  1979. 

"Tiny  PASCAL,"  SuperSoft,  nd. 

TSA  Rlasm  Relocating  Linking  Macro  Assembler  and  TSA  Links  Linking 
Loader.  Tsa  Software,  Inc.,  1979* 

Tutorial  Introduction  to  the  Unix  Text  Editor,  A,  B.  V.  Kemighan, 

Bell  Laboratories,  1975. 

"Typesetting  Mathematics  User’s  Guide,"  B.  V.  fCemighan  and  L.  L. 
Cherry,  Bell  Laboratories,  nd. 

UCSD  PASCAL  User’s  Manual.  SofTech  Microsystems,  February  1980. 

"UNIX  Assembler  Reference  Manual,"  Dennis  M.  Ritchie, 

Bell  Laboratories,  nd. 

Unix  Programmer's  Manual.  K.  Thoapson  and  D.  M.  Ritchie, 

Bell  Laboratories,  1975. 

Using  FORTH,  Second,  Revised  Edition,  FORTH,  Inc.,  March  1980. 

Word  Star  User’s  Guide,  MicroPro  International  Corporation,  1980. 

"YACC— Yet  Another  Compiler-Compiler,"  Stephen  C.  Johnson, 

Bell  Laboratories,  nd. 

"ZDS-1  Series,"  Zilog,  Inc.,  1977. 

Z80  —  Assembly  Language  Programming  Manual,  Zilog,  Inc,  April  1980. 

"Z-80  Microcomputer  Board  Series,"  Zilog,  Inc.,  1979. 

Z80  Microcomputer  Software  Programming  Guide;  Z80  Progra1ln»^ ng  Manual. 
Mostek  Corp.,  December  1977. 


A-21 


Z80  PL2  Debugging  Tool  (PDT)  User  Guide,  Zilog,  Inc.,  August  1979 


"Z80-RI0,"  Product  Specification,  Zilog,  Inc.,  July  1979. 

Z80»RI0  Operating  System  User's  Manual.  Revision  A,  Zilog,  Inc. , 
September  1978. 

Z80-RI0  Text  Editor  User’s  Manual,  Revision  B,  Zilog,  Inc.,  1978. 

Z80-RI0  Relocating  Assembler  and  Linker  User's  Manual,  Zilog,  Inc., 
1978. 

Z8000  CPU  Technical  Manual.  Zilog,  Inc.,  1980. 

"Z8000  Cross-Software  Paclcage,"  Product  Brief,  Zilog,  Inc.,  May  1980. 
"28000  Development  Module,"  Product  Brief,  Zilog,  Inc.,  December  1979. 


Product  brochures  have  been  received  from  Dynabyte,  Tektronix, 
Whitesmith  Ltd.,  GMAT  computers,  Zilog,  Avocet  Corp.,  Intel  Corp., 
FORTH,  Inc.,  Keurikon  Corp.,  Infosoft,  Hewlett-Packard,  Cromemco, 
Microsoft,  Ontel,  Emulogic,  Hughes,  SuperSoft,  and  Lifeboat  Associates. 


APPENDIX  B 

DCT/HOL  STUM  BENCHMARK 
PROGRAM  LISTINGS 

This  appendix  consists  of  the  DCT  high  order  language  benchnark 
program  listings  for  the  surviving  candidate  languages.  The  listings 
are  divided  into  tvo  sections.  Tabs  1  through  3  contain  the 
pseudo-code  specification  for  the  benchmark  program.  There  are  three 
versions  of  the  specification:  a  code-only  version,  a  heavily 
commented  version,  and  an  error-seeded  version. 

Tabs  4  through  13  consist  of  the  actual  source  code  listings  for 
the  benchmark  program  written  in  the  target  languages.  Page  numbers 
are  found  on  each  page  in  the  lower  right-hand  comer  because  many  of 
the  listings  continue  beyond  margin  boundaries. 
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Tab  1 

Program  DCT  Banchmark 
(Commeatad) 


O 


O 


c 


c 


o 


o 


f  A  •  ♦  •  •  #  • 

'  ^  _ OCT  OfcNCHHAffil _ 

•  *•  Trtt  nuttPOSg  OF  This  OCT  86NCMHi^t*«  FH068AH  IS  To  evaluate  0lFFt«5NT 

HICBOCOWPUTEW  >*IGH  OHOfc»»  LANttUASfcS  tHQLj  ^UR  tHE  OQT  APPLICATIQH, _ 

•••  rut  dfeHCMHAMn  TS  FakT  OF  A  LAHfitH  E^^uwf  rO  PiCK  TML  bEST  Mi(iK6* 

•  «•  tU'^PUTkW  "OC  FQH  T"6  OCT,  THfc  FHlHAMr  HUKFUSfc  0^  T«t  OtNCHMARA  •** 

FHUCHah  ITStuF  IS  TO  OSTaIN  OATa  UN  CUHHItt  TIME#  E,*ttUT10N  TlMfe 

0O4ECT  **)4ucnah  size.#  ano  to  IllustraTe  aovantages  ano  oisauvantaces 
*«*  UF  tnPLtl*tttrif*e  THE  OfeNCHHANA  IN  VANlUuS  LANGUAGES.  «** 

_ _ 

|Mt  9tNCMMAMK  TS  presented  btLO*  ^N  AlUokIIMmIc  KURM  itnlctM  ClOSElT  *•• 

•  •*  MbSE'^^UES  Pascal  op  ALGQL,  SUMt  HEAUEMP  mat  CONSIUb!*  The  bENChMaPa  *«• 

lU  qt  PMtSENTEO  IN  A  PPOGPahmInO  OESXON* LANGUAGE ,  AT  ANY  KAfS#  THfe  *** 

O  benchn^aNm  is  ppeSEnTeu  hEHE  hitm  EXTENSIVE  CUMHEnTS  Tu  ASSIST  Tut 

•*♦  PKUGHAMMfcN  IN  ymPlehENTING  Thc  bENchnaKa  in  different  LANGUAGES  SUCH  *** 
pascal#  PL/>Y,  FQNTPAN#  PL/I«  anu  patfun, _ ] _ **■» 

•  •  •  •  •  • 

•**  fHt,  HMUGHAHMb,P  ShOULU  *^E*0  fNt  rULLU^INU  cUmN£nTed  9ENCh'^*‘<a  C*nEFULLT 

•  ae,^(jRE  Implementing  The  senchnaHa  in  a  PakIICULAR  language#  because 
^  E2 tensive  guidance  is  given,  ALSU#  A  SpPAHATE  DOCUMENT,  ENTJTLCU 

•**  "KULtS  FUR  ImPLENEnTing  THE  OCT  sENCMHAKK*  SMUULO'SE  STUDIED  PRIOR 
*•*  ru  CODING  The  »ENChHARA  in  a  HAKTIcUCAH'LANGUAGE,  ' _ 

•** 

THIS  SEnCHmAra  has  uEyElOPEO  AT  THE  mARInE  CORPS  TACTICAL  SYSTEMS  *** 

SURPUPT  activity#  camp  PENDLETON#  CAUIFURNU#  '  92U&9»  _ 


•  •• 

THIS  SEnCHmAra  mAS  uEyElDPEO  AT  THE  mARXnE  CORPS  TACTICAL  SYSTEMS 
SURPUPT  activity#  camp  PENDLETON#  CAUIFURNU#  '  92U&9»  _ ^ 


CUnSTAhT#  type#  AnU  VAnjAHle  OeClARATiunS  for  UATA  iTtMS  REOUlRgO  Tu  SE 
toLU^AL  IN  SCO^t,  FOR  LANttUAitS  HHlCH  uu  N(iT  SURPOrT  *  I  tPE^'/^hIS 'PUnCT  lUN 
SHOULD  8E  ACHIEVED  EY  USING  'LITERALtY'#  'REPLACE*#  'MEANS',  UR  The 

logilal  eouivalemt.  _ ^ _ •  _ ■ 


program  OCfSENCHMARA 


CONST 

arra  y  Silt  •  las  j 


o 


lULOUPS  a  s/s; 
UPRACTIUNLOOPS  a 


I*  uStO  TO  CUnTnul  tnE  SUE  OF  AHRAyi  and 
(•  AKRAr2  AS  hell  as  The  nuhbeR  of  loops  in  «j 
(*  The  array  accessing  LUUP,  _ •)_ 

I*  USED  TO  CUnTmUL  The  NUnbeR  uF  I/Il  LUUPS,  •J 


{•  uSeU  to  Control  Ih£  NUMBtH  of  luuPs  In  tnn 

(•  UPtRATuR  ALTlUN  CASE  SIArEMENT  LUUP.  •j 


o 


■ 

*  '  '  . 

o 

1 XMINGCONTHUL  ■  7771 

(•  uatu  Tu  tUNr«UL  The  NU«acrt  uF  TX«tS  r«ar  -J 
(«  KEMNEL  •  rng  actual  sEnC^mamk  CXECUTIUn  *  •) 
(*  HHUCEUUNE  itt  CaUlEO.  THiS  alLU  :)£  AUjuaTEU*) 

au  T>tAT  HUN  TXMfrS  ARE  EASY  TO  nEASUHE. 

•  ) 

lUPQKT  »  777 » 

(*  This  PAKaMeTew  la  IN3TA(.l.ATlQN*0EPEN0ENr, 

•  J 

o 

1  1 

t*  it  nIll  he' Chosen  so  Thai  output  oc^uh^ 

(•  UN  AN  l/u  HUNT  ThaT  IS  NUT  CUNNECTEO  TO 

(•  anything. 

•  J 

•  J 

•  J 

C#  CONTNOUa  THe  NUHEER  of  rXHES  THE  HESEAGE 
^RoccaaxNG  loop  is  £«Ecur£o, 

*} 

•} 

o  _ 

rtSTavr&  a  asi 

(*  AN  ElGHT-axr  auANTiTY  ur  alternating  aiNAHr*j. 

(A  UNES  ANO  ^EHuES  TQ  TEST  UOTPUT#  SHIFTING, 

t**  .ANU.  HOTATING  CAPAjFILITiE»» 

*1 

L^tT£GEl«^l  w  4«4l 

(♦  A^  lB«t»tT  integer  USED  TU  TEST  INTEGER 

•  J 

C*  ahxthmetIC  CAPAalLlTlEa. 

•  J 

o  — 

INTEGfisa  a  -IS*! 

C*  A  1E*BIT  integer  used  TO  TEST  INTEGER 

•  J 

(*  ARiTHHETlC  CAPARILtTIEa^ 

3itM43K  »  i; 

(♦  USED  TU  HAax  The  RIGHIHUST  atT  in  a  syte 

*} 

‘'iStti.feNGTM  a  Hat 

(•  iNCUniNC  HtSSAGEa  are  EAheCTED  to  aE  43 
(*  CHARACTER8* IN  length. 

•  J 

•  J 

3Uhrtf^M4A  »  t&r 

C*^  AUk  aUFFERa  ARE  16  CHAHALTERS  IN  LEN&Th 
(»  ranging  FRutt  a  TU  IS,  Inclusive. 

♦J 
•  J 

aiARTcuut  •  'a‘< 

<•  The  ascii  ?  OEnuTeS  The  start  of  a  heSSage 

TYPE 

SuFFERTtRE  a  aSmAy  13.  .BuFFEriMAxj  UF  LhAR; 

(♦  Akk  CHARACTER  auFFERS 

range 

Trom 

C*-  3  TO  aUFFEjiHAX,  l.E.r 

FRUH  4 

to  IS, 

•  } 

VAK 


r\ 

1  miNGkOUPEK, 

kOUPCOUNTEHr 

aHlLtCOUNTER. 

(• 

(• 

(♦ 

U^EU  AS  AN  INUEA  FOR  TnE  TIRING  kOUP 

USEO  AS  A  kUUP  INOEA  IN  SEVERAk  kOQFS. 
USfcO  TO  control  the  hhIlE  LOOP. 

*) 

•) 

*)  ; 

UHRACTXUN* 

INoU^FtRFTH# 

(* 

(• 

(* 

USEU  TO  CUNTRUk  The  CASE  STaTEHENT, 
ranging  in  vAkUE'FRUH  4  rO  4, 

INUE*E8  INIU  The  INPUT  nOFPER,  iNauFFER. 

*) 

•  J 

•  )  ' 

o 

uut»uffehptw  »  Integer? 

(* 

(♦ 

iNOEXEa  INTO  THE  OUTPUT  BUFFER,  UUTSUFFER 

Akk  UF  These  «  integers  shoulo  be  xhpue* 
HENTED  AS  i4«BIT  integers. 

.*) 

*] 

AHHaVI#  AHHaY2  t  ARRaTO, 

.ARRaYSUEJ  of  INTegERT 
(•  aUlH  ARNArl  ANO  ARHAY2  ARE  16*aIT  INTEGER 

o 

C* 

c* 

ARRAYS  UF  SUE  ARHAYS1AE~  (  123)  AnO  ARE  F) 

UStO  TO  TEST  l.OlHENSIUNAk  ARRAY  accessing*! 

'-.Jr 

INouFFER  t  OuFFERTtREI 

(• 

A  character  buffer  uStO  FUR  iNRyT 

nE,iCRAn  I  chart 

A  character  variable  i/bEO  for  TERPORARY 

0 

(• 

alURAGE  ANU  PAHAHETEH  PABsInC.  S->4 

7) 

•’UEGTYPE  I  RECOROl 

!♦ 

A  LOHPLEX  rECURU  lOR  TABLE),  CUNSISTInG 

•  ) 

. 

4 


un4HBur^6K!5urrtM  •  Tt'fe;  i*  ur  a  lo  ntfi  UMAKACffeK  akkat  ^OLLu-tU  nr  *J 
iNTNUHttEH  I  INrEtffeHl  (*  A  l6*ttiT  IrtTfettEH,  "  •J 

tNO  i<eCUKO  HlJtEuTYPSl _ 


FuNCTiQM  fifeThrTE  t  chaw; 


'  }  - 

0 

♦ 

# 

FRDCUGUEi 

function  getbyte  returns  a  Character  vacue  amen 

• 

♦ 

• 

»  INV^OiiEO.,  IT  Ub TAINS  The  character  RHUh  mg  IN*  * 

•  RUT  SURFER  (INBUFFERJ#^  ANU  INCREMENTS  iMfi  SUFFER  * 

•  INDEX  clNbUFFENRrH].  CHECK ir4G  iO  SEE  IF  IT  E<CEE0S« 

O 

• 

* 

• 

dUFFERHAX  IN  Sl^b*  IF  II  OUESr  INHUFFaRPTR  IS 
RESET  TO  ZERO, 

9 

9 

9 

* 

inrutsa 

NQNE* 

9 

OUTFUTSt 

GETSVTbi  A  character  VALUE., 

9 

■’> 

* 

• 

• 

CXCLEU  SVt 

KERNEL. 

9 

9 

9 

«F 

c*CLsr 

NO  pkacEDUi^Eii  OH  FUNcriuNs. 

9- 

9 

9 

QC.S1N 

GETSrrE  ]s 

TNauFFER  tlNBUFFfefiPTRJ  > 

ENU 

INSUFFERRTH  |»  INBUFFERPTH  a  11 

IF  INbUFFgRFTR  >  BUFFERHAA  THEN  INbUFFtHFTR  »•  a; 

CETStTE; 

O  {  '''. 

RRUCEUURE  FUTaTTt 

(XNCHAR  J  CHAR#  PUTBUFKfeR  J  SUFFER T YREJ 1 

# 

>9 

9- 

t 

t 

9 

i^tillLGGUbl 

PRCJCEOUl^t  FUTbfTt  "PuT3“0ne  (.mAkacTe'r  InIu  Tme 
OUTPUT  buffer  iputbufferj.  'it  Then  inurehents 

The  buffer  InuEA  (OUTbUFFERPTn j ,  CnECkInC  TO  SEE 

9 

9 

9 

"  •  IF  IT  bACEE0&  bUFFERHAA  IN  SUE.  IP  II  AuES,  * 

•  outbuffehftr  is  reset  TU  AEhO,'  *  * 

♦  ’  ’  ♦ 

# 

• 

9 

inputs* 

INChAR»  a  CHFRAcTeR  V^LUt/  Amo  PUTSURFtR.  * 
character  suffer  of  size*  BUFFERHAX,  AM'iCH  IS 

PASSEU  BY  reference  as  an  ARRAr  TO  TESl  COMPILER 

9 

9 

9 

o 

9 

tFFicibNCVTWFiSarNt  nmuce  arnats* 

♦ 

9 

outputs; 

putbuffer  (changed;. 

9 

9 

9 

9 

CACCbU  ST) 

KERNEL. 

9 

9 

9 

o 

9 

9 

999 

c*ccs* 

NU  PRUCEOURE^  UR  FUncTIUNS. 

9 

9 

9 

atblN 

■ 

O 


O 


PUT¥uM£HTo«TSuMtKHTHr  *»  iNCHAMf 
OUTttUA^EHWrt  I*  OUrdU^^EMPfH  ♦  It 

lA  uuTiauArE^^Tw  *  auf^FEHWAA  them  uuTbu^fewhtw 
AHU  i*UTBrT6» 


«A  Ml 


B-5 


D 


AMUCAUU*!  AtWHfeL; 


•  HRuLOGUfeJ  f»HOC(iUUH£  IS  Tht  HgXNgL  OF  TM(i  OC  T  * 

•  _ 6fcNCWWtan.  IT  U  CAUUEO  KfeHSAtEDLY  ►KUH  THg _ *_ 

»  nAif*  fHQutiAJ^  fkOf*  A  FOH  uout*  cuntrulleu  ar  riMlNC**- 

•  t.QOFER»  UPON  INVQCAtiUN#  E«ECUTIQN  UF  KERNEL  • 

•  _ PROCEfcOS  AS  FQLLUAat  A  NUMoeH  Qf  JUTFUTS  ARE _ * 

•  PERFUNHgo  tUHlN  A  FUR  LUOP*  FULL0««EU  bY  a  nuMUER  • 

•  UF  integer  array  nanipulatiunSi  also  CUNTRQLLEU  SY* 

t _  A  FOR  LOOP.  NEXT#  A  SERIAL  DATA  LINK  18  SIMULATED* 

»  ttY  3ErARCH^lN&  FUR  A  START  CQUE  ANQ  THEN  INPUTTING  • 

•  A  »(ai«CrtARACTER  MESSAGE t  This  IS  OUNE  R£PEATEuLY  * 

•  _ AS  CONTHOLLEU  by' a  FOR  LOOP.  THE  NEAT'LOOP  SIR-  * 

•  ULATeS  OPERATUH  inputs#  "ITr  NULTI*PATn  BRANChlNG  • 

»  CONTROLLED  SY  Tht  CASE  CONSTRUCT#  -ITn  THIS  ACTION* 

•  _ REPEATEO  a  nurbEk  uF  flhtj  SIwCE  TWb  LARE  ACTION  * 

*•  IS  NfesTEo  within  a  for  loop,  upon  cumhuetion  OP  * 

•  THIS  FUR  LOOP#  KERNEL  RETURNS  CONTROL  TO  ThE  * 

_ rain  PwacRAM. _ ; _ *_ 

•  • 

•  INPUTS:  NONE,  • 

«  * 

OUTPUTS  t  NONE,  * 

•  L 

»  CaluEU  sy:  main  prograh, _ ^ 

•  • 

•  calls  4  FunCTIun  GETBYTE#  PRUCEOURE  PuTSYTE,  * 


t*  local  VaRIAWI 


ILaPaTIONS  •J 


^’O 


QUTBUFFER  t  bUFFERTYPC:  I*  OELLAREO  LOCALLY 

(•  TO  permit  passing  of  an  ARRAY  TO 
■ _  _ I*  PRuCEOUwt  PUTbYTE> _ 


BEGIN 


T*  PErFuRm  I/O  UPtRATIgNS  FQR  IulOUP  nUhBEK  qF'  TInES*  nOTHInG  *1 
I*  ShOULO  BE  CONNECTEO  TO  iOPORT  TO  ELIMINATE  PERIRmERAL  OEVICb*! 
I*  timing  QEPENUfcNCIES. _ ^ _ tL 


FUR  LOOPCOUNTER  I«  4  to  IULUOPS  00 

OUTPUTCnOTCTESTSYTE}.  IUPURT); _ 

(*  PERFORM  INTEGER  ARRAY  OPERATIONS  aS  CONTRQLLEU  bY  aRRATSUe  •] 

FOf^  LOOPCOUNfER  l«  U  TO  ARRArSIlE  00 

ARRAYi  IL?UPCOUnTEn]  t*  ARRAYS  lARMAYSiZE  «  LUOPCuON TEN] ; 


I*  SIMULATE  PROCESSING  an  INCOMING  MeSSAGE  By  LOURING  FuR  A  ») 

(•  start  cope:  Then  Input  mSGLEnGTh  number  of  CmaRaCTERS  *j 

(*  USING  leybyte  to  Input  ealr  craralTer  awq  pOtbyie  ru  outpot  *) 

t*  t*CH  Cm*^*CTER»  This  «hULt  PRUCEaS  IS  MCPEATto  numbemmSu  ~ 

(•  NuMbtR  OF  times  as  controlled  BY  j  ME  FOR  LOOP', 

FOR  LOUPCOumTER  >•  P  to  NUMBERMSGS  00 
BEGIN ' 

REPEAT  (»  until  mt  FINO  A  START  CQO^  *1 _ 

ne*>Cmar  :■  getbytei 
until  nEhCmah  •  staricoue; 

B“€ 

mhILECuunTER  :•  s:  (*  FoUNU  a  SIahT  COUE#  initialize  •} 

(•  hhIlECuunTeh  to  Inpui  The  message*] 


1 


I 


4ni^ECuUNTtR  *  Ha«i«.gNifTn  dQ 


r; 


o 


•r\ 


O 


o 


(•  Tng  PuHPqaE  Qp  This  whiue  I.UOP  la  tu  rear  a  LAwcuAGt* s*) 
5J*IlF"53P*¥ICI7T1  in  Tnoii  uiNttuACii  not  •) 

(*.  su**PONr  4  mheue  cuN^TNucr*  bUbXi.  **usr  at  *) 

i*  iNNUEMENrEo  ar  the  sTHucrui^bi}  use  op  a  uuTq  un  otheh  •) 

(•  CO^stnuCT,  IT^HATIVfe  LUUPlNtt  Xs  NOT  PfKfl  i  tTEl!> ,  O 

_ bfcGiN  (*  Input  message  uhawaciEws  ») _ _ _ 

NfeNCHAM  ts  SET'eVT&I  (♦  j»ET  NEXT  C>»AHAtTtK  IN  'ISG  ^ 

_ (♦  nQ»  shift  The  CHAHACtbK  WtQHT  ONE  tfXT  AMO  SEE  IP*) 

(*  the  HlGHfMOSt  SIT  IS  A  ONE,  O 

_ IP  (wmwfSHipTcNewCNAH,  n  *no  bitmasaj  »  i  then 

»ur»rTE(NEMCHAi«>  OUTSUPPENJI 
ELSE,  c*  ua  Ti^E'SAnE  TNiNi*  TNis  iP/tt»£  IS  ro  •) 

_ t»  CHECH  COWPILtH  IK/EUSE  CAPAblLlTY  ONUY.  ♦) 

PUTarTE(NEM(,nAM#  CUIdUPFERII 
NnI|.ECUUNrER  ta  anIubCUUNTEK  *  11 

feNc  while;  _ 

ENOf  VQR'  UUUPCUUNrEN  |»  «  TU  nUNa^NMSGS  LOUH  •) 


UPKaCTIUN  t»  9t  l»  IWITIAUIES  UPRACTIUtM  IQ  ZERO  3U  IHAT  IT  CAN  >j 

(•  HANttE  I^  VAUUE  ru  9.  In  inoSE  TT 

(•  LANGUACitS  wnlCH  SUKPONT  A  NOUULU'PUNCTIUN,  *) 
_ (*  OMNACTIUN  SwUUUU  SE  INPtENENrCU  AS  A  NOOULU  •; 

(*  UTneRpISE  It  SnUUUI  be  InCRE^E'^Teu  SY  Une 

ca  EACH  LUUP*  CHECK EU ~ AUAINST  9,  ANU  RESET  TO  *; 

_ (»  lERO  IP  UREATEft  fHAN  AS  DONE  BEUO*  AT  TM£  •} 

{•  durroM  OP  frtt  CA4E  ST^te^EHT,  7} 


PUN  LOOPCOUNTb*  !•  4  TO  OPRAC UONCOORS  UP 

Sb&lN  CAit  UPHACTION  nhEHE  UPHAUriUN  KANGEE  ^HOH  a  to  9  o 

CASE  OPRACriON  OP 


I*  SHIFT  TbSTSTTE  lU  THE  RIGHT  OT  THREE  blTS  •) 
(•  Then  sruME  IN  hUeuTTPE, 

^,3^9  I  Hl«EOTrPE»CHARBUAPtR  IUPRACTIONJ  ;■ _ 

Rl6»TS«iPTtTE»TSTT£, 

l»*tP  t  (»  CIRCULAH  KUTaTE  rgSTaTTE  TO  Twg  LEFT  Bf  2  •) 
(«  SITE  ANU  CHECK  ru  SEE  IF  Tnt  NIGnTHUST  •} 

I*  SIT  IS  A  UNt*  aruHE  in  miaEuType,  *J 

_ MIAEOTYPE.CHARBUPPtKtUPHACTlUNl  »■ _ 

CEFTROrATEtTESTsrTt^  2)  ANU  SITnaSk; 


2,0 _ I  !♦  WOvE  ALW  IB  CHAHACfERS  IN  iNbuPPER  TO _ ^ 

i*  THE  CHARACrtH  OUPP^R  PORTION  UP  mixEOTVPE  *j 
HIXEUTYPttCHARbUFFEN  ta  INaUPPtKt 

OTHEHNISEt  C*  NlEC.  HE  EKECUTEU  WHEN  OPRACTIUN  a  5  UN  S.  •! 

I*-  test  LANGUAGE  CAPaoIUITY  POK  iq^SIT  •) 

_ (♦  AwifHHErrc.  _  ''  _ 

'IIaEOTtPE.InTnuhbeh  la  ( ( ( ( INttGtRl/lNTEGENaj  * 
INTCGEKU/INrECERZIalNTSCCRSr*  InTEGERU 


ENU  case; 

OPNACTION  ta  aPUACrlON  ♦  u 

(•  INCnEHENT  OPNALTIuN  ANU 

*) 

1*  AtLU*  tT  TO  kAnCE  PROH  b 

•J 

IP  uPRaction  »  9  Then 

[W  lU  9  JN  VALUE. 

•J 

OPRACRION  ta  II 

B-7 

ENOt  (»  PQH  luupcuunteh  ;■  s  to 

upnaltiunluups  •; 

...ANUt  (.•.PRuCEOMRE  aEHNEL  •) 

- - -  - - - '•  *  '  -  - 

_  ..  - . -  - 

— 

I 


t 


I 

I 


i 


3fcSi<  t 


I*- 

I*  pftcGHAM  -  •  txccuriQN  sfeftXNa  ngse 

ti _ '  _ Li 


o 

o 

'tKXrtLINft  (lag&IN  beNCHM«p«K  llX&CUTlIJNi  J  } 

1*  nh£N  This  MtSSAGg  APOEANS 

•J 

LU0>*C0UNTE»^  t»  (4  ro  AI«HAVS12K  UU 

U  UN  Tne  CRI»  btGlN  TlrtlNG-” 
I*  ThE'agNCHMAMU  gXgCUTltlN, 

•J 

a)«haY2  ItUuacovjv't^Rl  )•  i,OUPCUUNTbK: 

C*  FILL  arrays  NiTH  ASCENOING 

1*  Integers*  a  -  "is. 

•J 

•J 

I^UH  iNbUF^^bHPTH  t«  a  TQ  bUEfER>*AX  OU 
lNttU»^FfeRtlNaUf^EH^T»J  |A'} 

c*  ?1LL  the  INPUI  auFPEH  nITH 

(*  PHONY' tea T  r  all  a '3. 

*) 

•J 

1 (lai  t«  aTAHrcQUE; 

(•  HuT  one  STAKfcOOE  IN  Ouf^^ER 
(*  SO  kennel  -III  pino  it. 

•J 

ouTbUFPEftPTft  r»  ai 

c*  POINT  both  bUrPER  INDICES  •) 

t*  TO  PINST  CnakacTER  IN  BOFFEN*! 

0 

FUN  UNiNCicaoPbN  *1  a  ru  riMiNGcuNTHuc  uu  (•  rnis  luu^  controls  non 

AfeKNEL*  (•  NANY  riMftS'NENNEL  IS 

•J 
•  ) 

(•  CALLED*  thus  CONTROLLING 
(•  8ENCHHARK  tXECOTlUN  TINE 

•} 

cQ 

-NXttuiNt  (MIXbOr'^^E,  'tNo  giECUTIUN»}j 

(«  ••hen  This  hesSAGE  appears  UN  «x 
C*  THE  CRT*  SIUH  timing  Th£  .j 
C»  benchmark  EAtCUTlUN  TIMt,  *J 

CNO. 

c 

o 

' 

o 

• 

o 
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O 


•  ■'''  %■■’  I 

■  I 


UCT8bl«CH»rAMK 


cunsr 

ahhaySUE  ■  1281 

lUtUUPS  a  b/5) 

UPMAktlUNLOUPB  »  IBBI 

riHlMGCOWTHOl.  a  ?7| 

lOPOHT  »  tTt 

NUMBEPHEGS  a  200) 

TESTBYTE  s  B9I 

iNTEGEPi  a  JOB) 

li'tTEGEPJ  •  •I3'»l 

BifMASF  a  i; 

nBUCt'YGTM  a  BO) 

BUFFEPPAX  ■  15) 

BTAprCQOb  ■  IS') 

TfPt 

5ijF?fFrfpr‘”j‘Ti7*rnT77Ti5o??fKfrnrr"o?"TMAi^ 

V  AK 


riMXf*GtOOP6i*»  LOORCOUNre»>  •HILtCOUNtEK#  OPRACTION,  iNttUPFERPTW, 

_ QUTBUFF&PPT*  t  tNT£ttgH> _  ' _ 

AKKAY  1  ,  AKHA12  t  APMAY  l«)  ,  «  AMK  A  Y  i>  1  Z&i  INTEG8H  I 

INbU^FfefY  j  ouFFtHTYPh; 

Nfc  aCK  AH  t  I  _ 

"lAEOTYPfe.  t  RfeCOWOf 

_ CPAPBUPPbK  t  auFFEPTYPE; _ 

InTNUhbE'^  ;  INTEttEWj 
tNO  HECUHO  MIXEOTYPEJ 

FUfYCruX*  UtlBtte  Y  CHAI*» 

_ GfcTBYTb  t«  tNSUFPEKtlNeUFFERPTPl » _ 

Ir4bgFFfcAlf*T«  !•  iNBUFF'feHli^tH  ♦  > 

IF  IN8UFFEH«TW  >  bUFFERhaX  ThEN  INftUrFtNFTK  }•  at 
C'YU  GfiraYTfci _ ~  _ 


PKOCtUU^E  FU^BYTt  lliYCMAK  t  CMAM»  PuTBuPPEM  ;  Bu^PEPTyFEm 

BftUIW _ ; _  ' _ _ 

PUTbUFFtH  lU'.'TdUFFfeHPTrlJ  :«  I.'<CHAiY> 
guTbUFFE'YPT*’  »«  QUTbUFFEHPrH  •  l> 

_ IF  ourBUFFEupfp  »  BUPFERmAA  J»gt4  OUTbUFFEWPTiY  >»  a< 

tNO  putbyte; 

PHUCtUuWE  lAePNbL^ _ 

vah  ourbuFFta  t  bgFFEMTYPtJ 


BCGII* 

FOP  LaopcuuMTSs  t»  a  Ta  muoups  oo _ 

UU rPUT (HOT c  YES t BYTE) . lUPUKT) » 

FOP  LOOPCOUi^TEP  l»  }  TO  ApwAYSUE  00  _ 

AHHAYl  lUOUFCOUHTbPl  t«  AhPAYlUHHAYailt  •  LUUPUOUNTfeK  I  j 

FOP  UOQPCOUwrfcB  I»  a  TO  NUWBEPWS6S  00 _ 

BEBlN 

PEPtAY 

_ Nfc>»(,mw  n  OETBYTbt _ 

UNTIt  Nt^CnAn  m  BTAPrCUOt; 


AMlgtCOUMTEP  «•  FI 


KHlLt  «h1L&C(JUNT&R  *  r^i  1)0 

_ iifcGiN _ _ 

j»  GtTBrref 

IF  («i&MT3HlFTtM6ii»CHAt»,  u  ANU  SITH^^ivj  •  i  ThfeN 
_ PUTByTeCN6»*CHAW,  0UTBUF>bff]> _ _ 

puTbYTg(N£»«cn*Si  aorduFPt«j» 

_ ioHiL&CUUNTeS  t«  ^hILrCUUNTE^  *  tl _ 

6N0  **‘*tLt; 
fc(<0  FaRI 


OPKACTlUN  :•  0> 

>»UH  LOOFCUUNTfei*  »«  4  TO  QPB  4C  T  IUNLOOHS  UU 
Sfe&lN 

CASE  0(»«ACTI0N  OF 


id. 4, 9  J  MixfeOTyPfc.CP'A.OUFf'trt  tQFt<ACTION)  :• 

xlGMrsnii' rirtSTBYTt,  j3; 

1.4./  :  .MtAeQTYPfe,CHAKauFFEK cupractiuni  :* 

LEFTKOTArECTESTaTTfe,  23  ANU  oIIMASKi 


2.0  :  mIXEOTTPE.ChaHbuF^Ew  j«  INuoFPgH; 

_ OTHEw^ISt;  >iUtOTyPfc.lNTNuHb&K  »«  C  ( ( (  InTEGEk  i  /  IMT(:SEW2)  • 

iNTEGEKD/iNTfeiifexaj  *^If*rE0EW2J  *  imtegeki; 

_ fcwo  CASEt _ 

oPwACrio**  >*  oppACriu'^  *  t< 

_ !>■  UPWACTKjn  »  9  Then  OPRACTHJN  >»  al _ 

ENO  FOMJ 
tNU  AEPNtLI 


dEGIN  I*  PBUG.<AM  fcAECUTIUN  *) 

BENCHwahk  £X&CUTiuNij> 

FUK  CUUKCUuNtEM  »»  0  to  AHHAySIiE  UO 
_ AKKATg tLOOPGOUWTEaj  im  LOUPCUUN t gW ; 

FUK  Ii^BuFFEKHTM  ;«  ^  TU  dUFFEP«AX  JU 
_ i'NBUFFfcH  tl.^qUFFEKPTPl  :  «  >  t »  > _ 


INBUFFEKC10J  >•  stahtcuue; 

iNauFFfcppTw.  outqoffshptk  tm  at _ 

Fuw  r iMiNutouPt»<  ?«  0  ru  t imingcunikou  uo 
AtKNfcLi  _ 

xNlIttliyE  C<»IXEDrYPE.  'bNU  execution')) 


^R06M*n  UCTa&NCHMARK 


*  _ ERROR  86E0E0  UCT  BewCHf»*><i< _ 

* 

*  fMiS  VfeHarON  OP  Tme  ocT  d6RC"»<*X'^  COnTAIiMS  five  ERROMa  DE3lGNfeO 

*  ru  c*osfe  coMPlufc-riME  errors  out  to  incorrect  syntax,  ►'0'»EveR, 

NOf  Ait-  COMRlLiKS  »tLL  RECOCNiifc  ACL  Oh  ThE  ERRORS  Af  COMPILE  TIRE. 

*  r»fe  FIVE  ERRORS  *RC  CtfeARtf  RARiiED  In  THE  uIsri?J&  SbcoR  a  1th 

»  A  series  of  asterieks  along  with  an  exrcanatiqn  of  THt  error. _ 


cuNgr 


ARHAYSliE  *  12SJ 
OPRACTIONLOOPS  »  U1BI 

luuoups  •  a/ a; 

TIHINGCONTROL  •  77} 

lOPCJRT  •  Hi 

NUHBERhSGS  •  SBld! 

ItSTbYTt  »  0&} 

INTEGERl  •  job! 

iNlEGEPa  »  -IS-*} 

tJiTHASR  • 

NStaUENGTH  »  Hit 

BUFFERRAX  «  IE! 

SrARTCOOE  a  *S*} 

rrRt 


ouFPERTyPE  «  a»Ray CO. ,auFPERNt<j  oF  char; 


vak 


eHROR  IJ  oY  ROacI’^G  C'^nn^fiT  oRaCAETS  aROUNO  LOURCO'J'^  f  £•*  Tre  •i 
(«••••  line  •EUO«,  the  OECUaRAtION  OF ' LOUPCUuNtER  la  ELlRINATtO.  *} 

The  p'JRR03£  IS  TO  atE  "0»<  OIFPtRENT  CORPILERS  TREAT _ ^ 

(*••••  V4K14S0E  oecLARAfroNa  or  the  uac«  Thereof,  •! 


riMIN6L00f»ER,  (V"  UOOKCOuNtEh»*J  HHltECOuNitR#  OPrACtIUN,  lNouFPtR**TH. 
OUTaoFFERpr*  j  INTEGER! 

ARNATl.  ARRAYa  ;  ARR A T  U . . ARR A Y8 U£1  OF  iNfEGERj _ 

INBUFFER  *  aUFFERTYPt! 

NtwCHAH  I  CHAR} 


RUeOTYPt  I  RtCOROl 

ChAHHUFFER  f  BOFFbRTYPti 
iNTNUHiiEH  1  iNTEuER} 

eNO  RECQRU  hixEOTYP£} 

Function  getbyte  i  char} 

bbijIn 

■  GETbYTE  I*  TNBIJFFER  CInbUFFEKPTRJ  } 

INBUFFERPTh  la  INBUFFERPTH  ♦  li 

B-13 

IF  INsOFFEhPTH  >  dUFFERNAl  Then  InbUFFEnPTH  |*  a! 
ENU  UETbYTE} 


'•U'OTit  :  UM4K#  *  duPFERT yt't J I 

_  PurauFFEK  (OUTBUFFfcHPTHl  t«  [NCrtAk; _ _ _ _ 

QUTBUF^EHPTw  («  UUrttUFFER'*I»  *  1; 

_ (*•**♦  error  2t  IN  THE  LINE  aELO«*»  BUFFER>»4*  H*a  BEE>*  REPUACEO 


(**•••  WUM  NtMCriAR  9U  Trt4T  UurogFf^RPTB#  AN  INTEGER,  Id 

(•*•••  NUM  CUMRAREO  TU  NCMCHAKt  A  CHARACTER  UUANriTY,  THE  •] 

(♦*♦** _ PURPOSE  13  TO  evacuate  TYPE»CHtCK OF  CUHRARiSUNB.  •J 


tP  OUTaUPFE^PTR  >  NEXCHAH  THEH  OUTaUFFERPTR  t»  a; 

feNO  PUrBTTEi _ '  _ ~ 


PNUCEUuRE  aeRNELT 

¥A(f  OUT^UfPtft  t  duFPfeHTYPE* 

ttfcCilN _ 


for  UOOPCoUMTER  J«  4  TO  lOLOUPS  UO 

OUTPUT (NOT ( TESTttYTEJ , lUHOHT)  I _ 

FOR  LOOPCOUNTER  t*  ft  TO  AHHArSllE  OU 

ARRAY  1  (LOOPCOUNTER)  t»  ARHAYEtAHRAYaiZfc  »  LUUPCUUNTERJ  ; 


FUR  uoupcounter  i*  k)  T(}  NUHatRHSba  ou 

BtUlN _ 

REPEAr 

Nfc-CHAR  r»  (iSTBYTE* 

_ UNTIL  NEhCHAH  »  aTARTCOUE; _ 

RHILECUuNTEH  t>  Ul 


RHiLt  RHlLbCWMYTER  <  «a6LENU7rt  00 
EES  IN 

_ NErChaR  t»  setbytet _ 


(*♦••*  error  JI  in  The  LINE  aELUnr  UuTBuFFER  ha3  •) 

_ (*«••* _ aESN  REPlaceo  rITh  aRRayi.  The  PuRPuaa  *) 

(A****^  la  tu  EVALUATE  TYPEvCHECKlHC  OF  PaRA-  *7 

(»«♦*«  HE.TERS  BEi.HC'P*S3E0»  SInUE  ARRAY!  13  •) 

_ {«*♦»* _ AN'InTESEH  array  ANQ  QUTBUrPER  13  A 

(•»••*  character  array.  •) 

_ IF  (RIKHTSHlFTtNEHCHAR,  iJ  ANQ  BIThaSK;  a  1  ThEn _ 

PUTBYfECNEHCHAR#  aRNaYIJ* 

ELSE  ■  ■ 

_ PUTBYTEINEHCHAHy  OUTttUFFER)  > _ 

ahILECUUNTER  »«  ohILECUUNTEk  *  II 

ERROR  4]  This  ERRUR  INYULYES  REHUYiNG  AN  'ENU*  •] 
iJY  dRACP£Ti.N«A  IT  AS  A  CUHH^NT,  the  PURPU3E  IS  57“ 
TO  EVALUAtE  ERRUR  RECUVERY  "ITH  MlaaiNG  *1 

(»*•*«  BECIN/ENO  Pairs,  in  languages  HlTHUUT  BEGIN/  •] 
ENU  PAIRS*  the  REHUVAW  UP  A  BRACE  UR  UUTQ  MILL  5) 

SUFFICE  *3  thE  .logical  EUUIyAlEnT,  ‘  •! 

_ c  ENU  while;  AJ _ _ 

ENO  T^URF  ^ 

UKRACTIuN  t*  4T _ 


►  UR  loupcounte**  i«  4  to  vJPRACT IUNLOUHS  UU 

BEGIN _ 

CASE  UPRACTIUN  UF 


#  4  •  9 


t  ^*ixEorrpt«CH4Hbu^^(iK  cupRA^f ION)  i« 


»iCMrsfH^T(T£3r8T rs/ 


1»4,7  I  MlxbJTYPfc.Cf^AHau^^fcH  tOHRACTIQNI  f _ 

UeFTWOTAT&tTLaTaTTE#  2J  ANO 

2,g _ I  'HlXfcOTYPe.CHAHBUFrfcK  t«  INBUFFgH; _ 

c*****  EHHOP  a:  IN  Tne  N^xT  line,  a  ttf'T  ^'AKE^4TheSI3  •) 
(*•«•«  ha3  seen  henoveo  ru  check  UNBALANCEO  •) 

( f»AHENrHE3tS.  E»HUK  UfeTtCTION  ANU  «£<»UHTlNii,  O 


UT»EH‘"lS£t  HlAEOTYPfc.ININoHBcH  J*  C  (  (  iNTEStH  1  /  lNTeLfciil2  J  * 
lNTEGeHlJ/lNTfcGfeK2)*lNTEGER2J  *  INTEGEHU 


END  CASE*^ 

_ QPWACriUN  f  QPWACriQN  *  IS _ 

1)^  uhhaC'ion  >  a  iHtN  uhraction  :«  o; 
fcNO  PU«J 

fcNU  ASBNEt; _ 


obSIN  I*  »»OGii»A(*  EjtECUTION  •} 


-<HiftLIN£  ('BEGIN  BENChhahk  EXECUTION' J; 

POM  LCiOPCQuNTEw  M  ^  TO  At^i^AYSlZE  00 _ 

AHKAY2lL00t»C0UNrE»l  t»  LOOPCUUNTfeHl 

PUW  InBUFPEWHTH  {«  0  TO  auPPEHHAX  00 _ 

INBUPPtH tlMouPPERPTHj  ja  'A'; 

INBUPPEHdBi  ;«  3TaxTCQUE» _ 

^  INBUPPEHPIK*.  UUTBOPPEHPTH  l.»  <it 

fjH  riHlNGLOOPti*  !•  H  TO  TI.hXNGCQNTHOL  00 

kennel; 

whIielInE  (HIxEOTypE,  'EnO  E<£CurIUN*)» 


EnO. 


/*  PROGRAM  DCTBENCHMARK  */ 

/*  Final  version,  with  direct  code.  At  Interactive  27OCT80  */ 


#define  ARRAYS IZE  125 
sfdefine  OPRACTIONLOOPS  100 
#define  lOPORT  32 
^define  TESTBYTE  85 
"define  INT2  -150 
^define  MSGLENGTH  80 
#define  STARTCOOE  'S’ 

«»define  lOLOOPS  575 
^define  TIMINGCONTROL  12 
#define  NUMBERMSGS  200 
define  INTI  300 
^define  BITMASK  1 
#define  BUFFERMAX  15 

/*  Global  data  */ 

int  timloop,  whiicntr,  opaction; 
int  inbufptr,  outbfptr; 

int  arrayl  [ARRAYSIZE*1],array2[ARRAYSIZE*l]; 
int  loopcntr, index; 

char  inbuffer(BUFFERMAX*1]; 
char  newchar; 

char  notbyte;  /*  Global  for  reference  in  asm  ....  */ 

struct  recordi  { 

char  charbufr[BUFFERMAX*1I; 
int  intnumbr; 

); 

struct  recordi  mixtype; 

/*  End  of  data  declarations  */ 


* 

* 

* 

Main  Program 

1 

* 

* 

mainO 

{ 

printf ("Begin  benchmark  exeeution\n"); 

fordoopentr  *  0;  loopcntr  <»  ARRAYSIZE;  loopcntr**) 
a rray2[  loopcntr]  »  loopcntr; 

fordnbufptr  ■  0;  inbufptr  <»  BUFFERMAX;  inbufptr**) 
inbuffer[inbufptr]  ■  ’A’; 

inbuffer(10]  «  STARTCOOE; 
inbufptr  ■  outbfptr  ■  0; 


for(tiniloop  =  0;  timloop  <=  TIMINGCONTROL;  timloop**) 
kernel  0; 

for(index  *  0;  index  <*  BUFFERMAX;  index**) 
printf  ( ’'%c" ,  mixtype.  charbuf  r{index  ] ) ; 

printf  (”'id\n",  mixtype.  intnumbr) ; 
printf  ("End  execution\n”); 

}  /*  End  main  program  *'*********** 

/♦Function  definitions  */ 

/*  KERNEL;  Exercises  the  support  functions.  */ 

kernel  () 

( 

char  outbufr[BUFFERMAX  *  1]; 
notbyte  =  -TESTBYTE; 

fordoopcntr  =  0;  loopcntr  <=  lOLOOPS;  loopcntr**) 

{ 

asm  Ida.nn  _notbyte;  /*  a  <—  byte  to  be  output  */ 

asm  Idrn  c.lOPORT;  /*  c  <—  output  port  ♦/ 

asm  out.cr  a;  /♦  do  the  output  */ 


fordoopcntr  s  0;  loopcntr  •«*  ARRAYSIZE;  loopcntr**) 
array) [loopcntr]  =  array2[ARRAYSIZE  -  loopcntr]; 

fordoopcntr  »  0;  loopcntr  •«=  NUM6ERMSGS;  loopcntr**) 

{ 

do  { 

newchar  =  gatbyteO; 

}  v»hile( newchar  !*  STARTCOOE); 

whiicntr  »  0; 

while(whilcntr**  <  MSGLENGTH) 

( 

if  (((newchar  “  getbyteO  )  »  )  )  fr  BITMASK  ) 
putbyte(  newchar,  outbufr); 

else 

putbyte(newchar,outbuf  r) ; 

}  /*  End  while  */ 

)  /*  End  for  */ 

opection  >  0; 

for(loopentr  »  0;  loopcntr  <*  OPRACTIONLOOPS;  loopcntr**) 

{ 

switch  (opection) 

{ 

case  0: 
case  3: 

case  9:  mixtype.  charbuf r{opaction]  ■ 

(TESTBYTE  »  3); 

break; 

case  1: 
case  4: 

case  7:  mixtype. charbuf r[opaetion]  > 


o 


n 


o 


'd 


lftrot(TESTBYTE,  2)  &  BITMASK; 
brMk; 

case  2: 

cas*  6:  for( index  =  0;  index  <=  BUFFERMAX;  index**) 
mixtype.charbufr[index]  ^  inbuffer[index]  ; 
break; 

default:  mixtype.intnumbr  =  ((((1NT1/1NT2)* 
INT1)/INT2)*INT2)  *  INTI; 
break; 

}  /*  End  switch  */ 

if  (**opaction  >  9)  opaction  *  0; 

}  /*  End  for  */ 

}  /*  End  kernel  */ 

/*  GETBYTE:  Get  a  character  from  inbuffer.  Maintain  inbufptr.  */ 


char  getbyteO 

{ 

char  rtnbyte; 

rtnbyte  »  inbuffer  [inbufptr]; 
if  (**inbufptr  >  BUFFERMAX)  inbufptr  *  0; 
return  (rtnbyte); 

}/*  End  getbyte  */ 

/*  PUTBYTE:  Put  a  character  in  putbuffer.  Maintain  outbfptr.  */ 

putbyte(inchar,  putbuff  r) 
char  inchar; 
char  putbuffr(]; 

{ 

putbuff r [outbfptr]  ^  inchar; 
if  (**outbfptr  >  BUFFERMAX)  outbfptr  “  0; 

}  /*  End  putbyte  */ 

/*  LFTROT:  Rotate  a  byte  left,  by  number  of  bits.  */ 


char  lftrot(rotbyte,  number) 
char  rotbyte,  number; 

{ 


asm 

asm 

asm  Irot: 

asm 

asm 


Idr.ixd  b,ix*8;  /*  b  <—  number  of  shifts  */ 

Idr.ixd  a,ix*6;  /*  a  <—  byte  to  be  shifted  */ 

Her  a;  /*  rotate  the  byte,  while  */ 

djnze  Irot;  /*  decrementing  b,  jump  on  not  zero 
id.ixdr  ix*6,a;  /*  put  rotated  byte  back  */ 


*/ 


/*  the  return  wilt  put  (ix*€)  into  the  hi  register  peir  */ 


return  (rotbyte); 


>  /•End  Iftrot  •/ 


/•  END  OCT  BENCHMARK  PROGRAM  aeeaeeeeeeaeeeeeeeeeaaexaaeaeaaaaeaeaaaasaae/ 
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Tab  5 

Vhltaaaith  "C"  Source 


DCT  BENCHMARK  PROGRAM  IN  WHITESMITH-'S  C 


./* 

2: 

a 

3: 

a 

4: 

a 

5: 

a 

6: 

a 

7: 

*/ 

Frank  P.  MacLachlan 
13-0ct-80 


#includ«  <5td.h> 


/»  fi1«  containin*  standard  dafinitions  »/ 


11 

#daf ina 

ARRAYS I2E 

125 

12 

4daf ina 

BITMASK 

001 

13 

#daf ina 

BGFFERMAX 

15 

14 

4daf ina 

INTI 

300 

15 

t  #dafina 

INT2 

-150 

16 

4daf ina 

lOLOOPS 

575 

17 

#daf ina 

lOPORT 

Oxff 

13 

#daf ina 

MSGLENGTH 

80 

19 

#daf ina 

NUMBERMSGS 

200 

20 

#daf ina 

OPRACTIONLOOPS 

100 

21 

#daf ina 

STARTCODE 

'S' 

22 

1  #dafina 

TE3TBYTE 

35 

23 

#daf ina 

TIMINGCONTROL 

12 

24 

25 

/a 

/*  adjust  if  conflict  */ 


EXTERNAL  VARIABLES! 

Dua  to  an  anomaly  in  tha  Uhitasmith  C  comFilar.  all 
extarnal  variablas  must  ba  sivan  initial  valuas. 

Tharaforat  axtarnal  variablas  which  raauira  no  initialization 
must  ba  initialized  to  satisv  tha  commilar. 


32! 

char 

inhufCSUFFERMAX+13 

33: 

{  'A',  'A'. 

'A',  'A', 

c' 

'S',  'A', 

'A',  'A', 

L-l 

int 

ar  r av 1 C  ARRAYS I ZE+ 1 3 

<:o>5 

36: 

int 

arraY2CARRAYSIZE+13 

€0>l 

37: 

int 

inbufa  CO>l 

38: 

int 

outbufa  <0>? 

39: 

,  40: 

struct 

i 

"  411 

char  charbuf CBUFFERMAX+13J 

'A',  'A', 
'A',  'A'>1 


'A',  'A',  'A'. 


421 
431 
44 1 
451 
4&1 
"^471 
48i 
49: 
50: 
5i: 

•  -.52: 
■^53: 
54: 
55: 
56: 
57: 
^50: 
-^59: 
6'"N 


int 

mixadtvma  < 


intnumbar 1 
0  >: 


/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaax 
»  a 
a  Main  Proaram  a 
a  a 
\ aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa / 


_main( ) 


raaistar  looactri  /a  for  smaad  a/ 

static  int  timinalooaari 

autfmti "Baain  banchswrk  axacutionNn") i 
for  (looactr  ■  0l  looaetr  <■  ARRAYSIZEt  a+loomctr) 
arraY2C1 ooactrl  ■  loomctrl 

for  ( timinal ooaar  ■  0:  timinalooaar  <■  TIMINOCONTROLl 


<-+timina1ooaar) 
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— ?JTV- 

62S 

63: 


64: 

65: 

66: 

67; 


- - -  ■  ~K«rn*i  i  ' 

for  (loo^ctr  ■  0:  looi^ctr  <»  BUF^ERHAX:  ++1ooFctr) 
"X*"i  mix«dtYP«. ch«rbuf Cl oo^ctr3 ) : 
Futfmt  ( '‘\n%s\nEnd  «x*cution\n'*«  mix*dtYP«.  intnumb«r ) : 


/»*««««***«««««««««««««»««««««*«««««»««»*«««»«««\ 

_  *  * 

0  70;  *  Support  Functions  * 

71:  »  * 

72:  \ »*««-»«««««««»«««««««*«»«»««««»«««««««««««*«*««*/ 


73: 
74; 
75: 
O  76: 


/*  9«t  a  charactar  from  inbuf>  incramant  inbufp  to 

a  naxt  charactar. 

*/ 

char  satbYta() 


Q 


73; 

79: 

30; 

31; 

32: 


O 


34: 

35: 

36: 

37; 

33: 

39; 

90; 

91: 

92: 

93: 

96: 


97: 

93: 

99: 

^100: 

MOl: 

102: 

103: 

104: 

105: 

106: 

^07: 

108: 

109: 

110: 

111: 

112: 

ai3: 


static  char  c! 

c  a  inbuf Cinbuf p3 : 
if  <++inbufP  >  BUFFERMAX) 
inbufp  =  0* 
raturn  <c)? 

> 


/* 

*  karnal  is  tha  main  function  in  tha  banchmark  proaram. 

*  It  is  daclarad  VOID  to  indicata  that  no  raturn  valua 

*  is  axpactad.  VOID  is  dafinad  in  tha  fila  STD.H  as 

*  bains  apuivalant  to  int  (16  bit  intasar). 

*/ 

VOID  karnal ( ) 

< 

static  char  outbuf CBUFFERMAX+13: 
static  char  nawchar: 
static  int  opactionl 

rasistar  loopctr»  uihilactrt  i:  /*  for  spaad  */ 


for  (loopctr  »  0:  loopctr  <■  lOLOOPS:  ++loopctr) 

outdOPORTt  -TESTBYTE):  /*  standard  librarY  output  routina  */ 
for  (looPctr  ■  0:  1 oopctr  <»  ARRAYSIZEl  ++looPCtr> 

arravlC I oopctr 3  =  arraY2CARRAYSIZE-l oopctr 3: 
for  (looPctr  ■  01  loopctr  <»  NUMBERMSOS;  ++looPctr)  C 
whila  ((nawchar  «  aatbYtaO)  !*  STARTCODE) 


> 


for  (whilactr  ■  Ol  whilactr  <  MSOLENGTHl  ++whilactr> 
if  (((nawchar  -  satbYtaO)  »  1)  &  1) 
putbYta (nawchar 1  outbuf): 

a1  sa 

putbYta( nawchar •  outbuf): 


114: 

115: 

116: 

117: 

118: 

319: 


opaction  ■  0: 

for  (looPCtr  -  0:  loopctr  <»  OPRACTIONLOOPS:  ++1 oopctr)  C 
switch(opaction)  C 

casa  O: 
ca«a  3: 
casa  9: 
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mix*dTYP«. cnarDut-Lo^action J  •  vitiiibYib.  >>  J 

122: 

br««kt 

0123: 

1241 

c«s«  i: 

•  1251 

ca.s«  4: 

126: 

c«.s«  7: 

123: 

mix«dtYM.  ch*rbuf  CopactionI  »  1  rot  (TESTS YTE. 

1'  ) 

break: 

3129: 

130: 

case  2: 

131: 

case  6: 

132: 

for  (i  »  0:  i  <=  BUFFERMAX:  ++i ) 

133: 

mixedtYPe. cbarbuf C i 3  *  inbufCil; 

134: 

break; 

-^135: 

'"136: 

defaul t: 

137: 

mixedtYPe. intnumber  *  ( ( ( ( INT1/INT2>  »  INTI) 

133: 

/  INT2)  »  INT2)  +  inti; 

139: 

> 

140: 

if  (++opaction  >  9) 

rvl4i: 

opaction  *»  0; 

•'^142: 

3 

143: 

}  /«*  end  kernel  **/ 

144: 

145: 

146: 

/* 

Put  a  bYte  into  the  next  position  in  putbuf 

^147: 

»/ 

'143: 

VOID 

putbYte ( inchar f  putbuf) 

149: 

char  inchar; 

->•  ISO: 

char  putbufCl; 

151: 

C 

152: 

Putbuf Coutbufp]  *  inchar; 

■J,.  ^ 

if  (++outbufP  >  BUFFERMAX) 

155: 

outbufp  ■  0; 

156: 

> 

157: 

153: 

159: 

/* 

rotate  bYte  n  left  b  bit  positions 

Q60: 

» 

(8  bit  rotate) 

16i: 

*/ 

162J 

ch«r 

1rot(ni  b) 

163: 

char  n; 

164: 

char  b; 

165: 

{ 

:*166: 

167: 

b  Stm  0071  /»  0..7  */ 

■  163: 

return<<n  «  b)  !  <n  »  3-b))l 

■  169: 

> 

} 


0 


o 


Tab  6 

Microsoft  ?ORTRA1I>80  Source 
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o 


o 


o 
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C  PROGRAM  DCT  HOL  BENCHMARK  IN  MICROSOPT  FORTRAN-80  FOR  CP/M 

C  WRITTEN  BY:  CAPT  3.F.  BRADY.  U.S.M.C 

C 

VARIABLE  DECLARATIONS  FOR  MAIN  PROGRAM  l 

IMPLICIT  LOGICAL<L-R) 

C 

I NTEGER  OTBFPT , I NBFPT , T I MLPR . I NTNUM , ARR A Y2 
C 

LOG I CAL* 1  CHRBUF, INDUFF, B I TMSK. T3TBYT 
C 

C»****  DEFINE  GLOBALS  IN  COMMON  : 

C 

COMMON  //OTBFPT, INBUFF( 16) . I NBFPT, CHRBUF ( 16 > , ARRAYS ( 126) , 

*  INTNUM.SITMSK.TSTBYT 

C 

PRESET  DATA  : 

C 

DATA  INBUFF/ 10* 1 HA, IHS, 5* IHA/ . B I TMSK/ 1 / , OTEFPT/0/ , TOTBYT/ 11  !U/ 

C 

C*****  BENCHMARK  MAIN  PROGRAM 
C 

C*****  WRITE  OUT  THE  START  MESSAGE 
WRITE(5, 1 ) 

C*****  INITIALIZE  ARRAYS 
DO  102  TIMLPR-1,126 
ARRAYS  <  T I MLPR ) -T I MLPR 
C***#*  END  INITIALIZE  LOOP 
102  CONTINUE 

DO  105  TIMLPR»0, 12 
C»**»*  BEGIN  MAIN  TIMING  LOOP 
CALL  KERNEL 

C»****  END  MAIN  TIMING  LOOP 
105  CONTINUE 

C»****  WRITE  OUT  THE  END  MESSAGE 
WRITE(5,2) 

C*****  END  OF  MAIN  PROGRAM 
C»****  FORMAT  STATEMENTS  : 

1  FORMAT<'  B*9in  BENCHMARK  Ex«cut  i on.  •' ) 

2  FORMAT(-'  End  BENCHMARK  Execution.-') 

STOP 
END 

C 

C»****  SUBROUTINES  AND  FUNCTIONS  « 

C 

FUNCTION  GETBYT<DUMARG) 

LOGICAL*!  INBUFF, DUMARG 

C*****  DUMARG  IS  USED  ONLY  BECAUSE  A  PARAMETER  IS 
C»****  REQUIRED  FOR  A  FUNCTION  CALL 
C 

I NTEGER  OTBFPT , I NBFPT , LOCPNT 
C 

COMMON  //OTBFPT, INBUFF( 16), INBFPT 


LOCPNT«INBFPT 
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INBFPT=INBFPT>1 
IFdNBFPT.GT.  16)  INBFPT*! 

CETSYT=  CNBUFF ( LOCPNT  > 

RETURN 
END  OETBYT 
END 
C 

SUBROUTINE  PUTBYT (INCHAR, PUTBUF) 

C 

LOGICAL#!  INCHAR, PUTBUF ( 16) 

C 

INTEGER  OTBFPT 
C 

COMMON  //OTBFPT 
C 

PUTBUF ( OTBFPT ) = I NCHAR 
OTBFPT=OTBFPTH 
IF(OTBFPT.GT. 16)  CTBFPT=1 
RETURN 

C«»**»  END  PUTBYT 
END 

1*^ 

SUBROUTINE  KERNEL 
IMPLICIT  LOGICAL(L-R) 

C 

LOGICAL*!  NEWCHR, INBUFF, TSTBYT, BITMSK, CHRBUF, OTBUFF< 16) , START, 
*  BYTE 

C 

INTEGER  OTBFPT,  INBFPT,  INTNUM,LPCNTR,  TIMLPR,  WHLCNT,  OPRACT,  ARG.2. 
»  ARRAY2, ARRAY 1(126), I NTCRl, I NTGR2, TEMP 

C 

COMMON  //OTBFPT, INBUFF< 16) , INBFPT, CHRBUF ( 16) , ARRAY2( 126) , 

»  INTNUM, BITMSK, TSTBYT 

C 

DATA  START/IHS/, INTGRl/300/, INTGR2/-150/ 

C 

DO  112  LPCNTR=0,575 
BYTE-. NOT. TSTBYT 
CALL  OUT (BYTE, 200) 

112  CONTINUE 
C 

DO  115  LPCNTR-1,126 
ARC2-127-LPCNTR 
ARRAY 1 ( LPCNTR ) -ARRA Y2 ( ARG2 ) 

115  CONTINUE 
C 

DO  127  LPCNTR-0,200 


C»****  BEGIN  MESSAGE  LOOP 
119  CONTINUE 

IF ( GETBYTC BYTE ).NE. START)  GOTO  119 
WHLCNT-0 

122  IF ( WHLCNT. GT. 30) GOTO  126 


C»*«*«  BEGIN  WHILE  LOOP 

NEWCHR-GETBVT ( BYTE ) 
TEMP-NEWCHR 
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C  / 


o 


I F ( RTSUFT  <  TEMP , 1 ) . AND . 3 1 TMSK ) GOTO  1 24 
CALL  PUTBYT  <  NEWCHR , OTBUFF ) 

GOTO  125 

124  CONTINUE 

CALL  PUTBYT ( NEWCHR . OTBUFF ) 

125  CONTINUE 

WHLCNT=WHLCNT+1 
C»***»  END  WHILE  LOOP 
GOTO  122 

126  CONTINUE 

C*****  END  MESSAGE  LOOP 

127  CONTINUE 
0PRACT=0 


DO  138  LPCNTRsO, 100 
C»*»**  BEGIN  OPERATOR  ACTION  LOOP 
INDEX=OPRACT+i. 

G0T0(129, 131, 123. 129. 134. 131. 129. 134. 12S>.0PRACT 
C 


123 

Ctt**** 

c 

129 

c 

c*#*** 

131 

133 

C***** 


CASE  OF  0,3  OR  9 

CHRBUF ( I NDEX ) =RTSHFT  <  TSTBYT , 3 ) 

END  0,3  OR  9 
GOTO  135 

CASE  OF  1,4  OR  7 

CHRBUF  (INDEX)  =LFTROL  ( TSTBYT ,  2 ) .  AND .  B I TMSU: 
END  1,4  OR  7 
GOTO  135 

CASE  OF  2  OR  6 

DO  133  AR02=1,16 

CHRBUF ( ARG2 )  =  I NBUFF  <  ARG2 ) 

CONTINUE 
END  2  OR  6 
GOTO  135 


C 

C*****  OTHERWISE  : 

134  INTNUM=<  <  < ( INTGR1/INTGR2)*INTGR1 )/INTGR2)*INTGR2)+INTGRl 
C****»  END  OTHERWISE 

C 

C*****  END  OF  CASE  SIMULATION 

135  CONTINUE 
OPRACTaOPRACT+1 

I F ( OPRACT . GT . 9 )  0PRACT=O 
138  CONTINUE 

C*****  END  OPERATOR  ACTION  LOOP 
C*****  END  KERNEL 


RETURN 

END 
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Tab  7 

Cronamco  RAT70R  Source 


#F»ROGRAM  DCT  HOL  BENCHMARK  in  RATFOR  for  CP/M 
#Writt«n  bv:  Cai»t  B.F.  BRADY,  U.S.M.C 

# 

#  INCLUDE  RFGLBLS.RAT  #  n««d  this  for  TSW  RatFor  onlv 

# 

#DEFINE  Constants  : 

DEFINE(arsiz«. 126) 

DEFINE(io loop, 575) 

DEFINE(orac1r, 100) 

0EFINE(tifflct1 . 12) 

DEFINE(io»»ort,200) 

DEFINE(nfflS9S.200) 

DEFINE(tstbYt,35) 

DEFINE (intsr 1,300) 

DEFINE< intsr2, (-150) ) 

DEFINE ( mss 1«n, 30) 

DEFINE(5trtcd, 'S') 

DEFINE(bufmax, 16) 

# 

#Variab1e  declarations  for  main  rrosram 
# 

INTEGER  otbf  f»t,  inbf  rt,  timl  rr ,  intnum,  arraY2 

« 

LOGICAL*!  chrbuf , inbuf f , bitmsk, temp 

# 

#DEFINE  slobals  in  COMMON  : 

COMMON  //otbf Pt, inbuf f(buf max) , inbfpt, chrbuf ( buf max) , 
arraY2(arsize) • temp, intnum, bitmsk 

#PRESET  DATA  : 

# 

DATA  inbuff/10*'A', 'S',5*'A'/,bitmsk/l/,otbfPt/0/ 

# 

#Benchmark  Main  Prosram 
# 

URITE(5, 1)  #put  start  messase  on  console 

#  initialize  arraY2  elements  to  esual  their  index 
FOR< inbf pt»l ! inbf pt<>^rsizel inbfpt»inbf pt+1 ) 

arraY2( inbfPt)  ■  inbfpt 

#  end  initialize  loop 
inbfpt  ■  0 

FOR ( timl pr»l i timl pr<»timct 1 l timl pr«timl pr+1 ) 

{#  BEGIN  main  timins  loop 
CALL  kernel 
END  main  timins  loop 
WRITE(5,2)chrbuf , intnum 

#  Put  out  record  values  and  end  messase  on  console 
#FORMAT  Statements s 

1  formate"  besin  benchmark  execution") 

2  formate  lx, 16A1, 14, "  end  execution") 

STOP 

END 

#end  of  Main  Prosram 

» 


#Subroutin*s  and  Functions  s 

» 

FUNCTION  •«tbYt(dum«r«) 

LOGICAL*!  inbuff • dumars  #dumar«  is  us«d  only  bacaus#  a  aaramatar  is 

#raauirad  for  a  FUNCTION  call 
, INTEOER  otbf at.  inbf at»  1  ocMt 

-  J  ^ 

COMMON  //otbfat.inbuff<bufniax).inbfat 
# 

locant  *  inbfat 
inbfat  »  inbfat  1 
IFtinbfat  .OT.  bufmax) 

O  inbfat  ■  1 

•atbvt  ■  inbuff ( 1 ocant) 

RETURN 

END 

#and  aatbvt 
# 

O  SUBROUTINE  autbvt < inchar. autbuf) 

# 

LOGICAL*!  inchar. autbuf (bufmax) 

# 

INTEGER  otbfat 

* 

C  COMMON  //otbfat 

« 

autbuf < otbfat)  ■  inchar 
otbfat  »  otbfat  +  ! 

IF< otbfat  .GT.  burtnax) 
otbfat  »  1 

■  ;  RETURN 

END 

#and  autbvt 
# 

SUBROUTINE  karnal 
r  # 

LOGICAL*!  nawchr. inbuff. tama. bitmsk. chrbuf . otbuff( bufmax) . start 

« 

INTEGER  otbfat. inbfat. intnum*  timl ar. 1 acntr. whl cnt. oaract.ars2. 
arravS.arrav! (arsiza) 

tt 

O  COMMON  //otbfat. inbuff (bufmax) . inbfat. chrbuf ( bufmax) . 

arraY2(arsiza) . tama. intnum. bitmsk 

« 

DATA  start/strtcd/ 

# 

FOR( 1 acntr*! l 1 acntr<«iol ooa* 1 acntr»l acntr+! ) 

C  C#BECIN  I/O  Looa 

tama  ■  ( .NOT, tstbvt) 

CALL  out ( tama. ioaort) 

>»END  I/O  Looa 

FOR( 1 acntr«! 1 1 acntr<«arsi2a» 1 acntr«l acntr+! > 

€#BEOIN  Array  Looa 

^  ar»2  ■  (arsiza+!)  -  lacntr 

, arravl ( lacntr)  ■  arraY2(ara2) 
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>#ENO  Arr«.Y  Loo^ 

FOR(  ]  pcntr«l ;  ]  Fcntr<>nms«tt  J»»cntr»]  ^cntr+1 ) 

«IBEGIN  M*ss«.9«  Loop 
REPEAT 

nowchr  >  «otbYt(tomp)  #us«  tomp  «s  «  dummY  h«r«  sinco 

#«t  l««st  on«  ftrsumont  is  n««d«d  for  ca 

UNTIL(n«uichr  .EQ.  start) 
uihicnt  ■  0 

UlHILECuihlcnt  <  msslon) 

{#BEOIN  UhiU  Loop 
nowchr  •  sotbYt ( toinp) 
tofflp  >  nowchr 
CALL  rtshft(t«mp«l) 

IP(t«mp  .AND.  bitmsk) 

CALL  PUtbYt(nouichr.otbuff ) 

ELSE 

CALL  PutbYt(nouichr.otbuff ) 

(iihicnt  ■  uihicnt  +  1 
>#END  Whi1«  Loop 
>#END  N«ssa9«  Loop 
opract  *  0 

FOR< 1 pcntr«l ? 1 pcntr<«opac1 pi 1 pcntr«1 Pcntr+1 > 

{#BEOIN  Qporator  Action  Loop 

#*  simulat*  CASE  statomont  with  IF-ELSE-IF  chain 
#»««««*«««««*««««««««««'»«««««««««««««*«««•»«*«««««««*****«********« 

IF( <opract.EQ.O) .OR. (opract.EQ.S) .OR. (opract.EQ.9) ) 

<#CASE  of  Of 3  or  9 
tomp  »  tstbYt 
CALL  rtshftCtomp. 3) 
chrbuf (opract)  «  tomp 
J#End  0,3  or  9 

ELSE  IF( ( opract. EQ. D.OR. ( opract. EQ. 4) .OR. (OPract.EQ.7) ) 

CttCASE  of  1,4  or  7 
tamp  ■  tstbYt 
CALL  1 f trol < tamp,2) 
tamp  «  (tamp  .AND.  bitmsk) 
chrbuf (OPract)  ■  tamp 
>#End  1,4  or  7 

ELSE  IF( (opract.EQ.2) .OR. (opract.EQ.6) ) 

{4CASE  of  2  or  6 

FOR ( ar92*l 1 ar92<»buf maxi ar92»ar92+l ) 
chrbuf(ar92)  >  inbuff(ar92) 

>#End  2  or  6 

ELSE 

C40THERUISE  i 

intnuaia(  ( ( (  int9rl/int9r2)*int9rl  )/int9P2)*int9r2)-*’int9rl 
}#End  Otharwisa 
#End  of  CASE  Simulation 
opract  ■  opract  1 
IF(opract  .OT,  9) 

OPract  ■  0 


o 


>#ENO  Op«r«tor  Action  Loo^ 
#«nd  k«rn«1 
RETURN 
END 


i  O 


i 

i 

I 

I 

f 


] 

i 


o 


o 


o 


o 


0 


<*  DCT  B«nchm«rk  Pro*r*j»  in  Pascal /MT  for  CP/M  *) 
(»  niri t ton*  bY  J  Ca^t  B.F.  BRAOYt  U.S.M.C.  *> 

PROGRAM  DCTBENCHMARKI 
CONST 

arravsiz*  •  125l 
numbarmsvf  «  2001 
orracloo^s  ■  lOOf 
iofort  ■  2001 
ioloors  a  57Sl 
timinacntrl*  121 


ta»tbvt# 
intasar 1 
inta«ar2 
bitmask 
msal ansth 
startcoda 
startbvta 
buf farmax 


•  35; 

■  300; 
«-150; 

■  l; 

*  so; 

>  lo; 
«  15; 


TYPE 

buffartvma  >  PACKED  ARRAYCO. . buf f armax3  of  CHAR; 
mixadtY^a  ■  RECORD 

charbuffar  :  buffartvpa; 
intnumbar  :  INTEGER 
END  (aRECORO  mixadtvaaa); 


timinal ooaar« inbufmtr< outbufatr  s  INTEGER; 

arraYl.apraY2  ;  ARRAYCO. .arrays iza 3  of  INTEGER; 
inbuffar  i  buffartvma; 
mixrac  ;  mixadtvaa; 


FUNCTION  aatbYta  »  CHAR; 

BEGIN 

•atbYta  ;■  inbuffarCinbufmtri; 
inbufptr  i«  inbufatr  +  l; 

IF  inbufptr  >  buffarmax  THEN  inbufptr  :■  0 
END  (»«atbYta«); 


PROCEDURE  PutbYta  <VAR  inchar  ;  CHAR;  VAR  putbuffar  ;  buffartYPa); 
BEGIN 

putbuf farCoutbufptrl  ;«  inchar; 
outbufptr  X*  outbufptr  ♦  i; 

IF  outbufptr  >  buffarmax  THEN  outbufptr  :■  0  . 

END  <*PutbYta*); 


PROCEDURE  LFTROL(VAR  tamp  x  INTEGER;  bits  i INTEGER); 
BEGIN 

INLINE(  "LOA  /  bits/ 

"MOV  BtA  / 

"LDA  /  tamp/ 

CLROra/  "RLC  / 


I 


"DCR  B  / 
"JNZ  /  LROT/ 
"STA  / 

ENDt 


PROCEDURE  {(•rn*]; 

VAR  outbu^f*r  *  bu#f*rtYM; 

1 ooPCount«r« whi 1«count«r« o^raction* t*m^  i  INTEGER* 
nawchar  i  CHARf 

BEGIN 

FOR  loopcountar  0  TO  ioloo^s  DO 
BEGIN 

tam^  tastbYtai 

<a  usa  in-lina  diract  coda  to  com^lamant  tamp  and  put  *) 
(•  it  out  tha  spacifiad  port  a) 

INLINE(  "LDA  /tamp/ 

"CMA  / 

"OUT  /i0P0Pt)» 

END  («FOR»)4 

FOR  loopcountar  :«  0  TO  arraYsisa  DO 

arraYlCI oopcountarl  »■  arraY2CarraY»iza  -  1 oopcountarit 

FOR  looPcountar  0  TO  numbarmsss  DO 
BEGIN 

REPEAT 

nawchar  aatbYta 
UNTIL  nawchar  •  ftartcodaf 
whilacountar  :•  Of 

WHILE  whilacountar  <  nsalanath  DO 
BEGIN 

nawchar  f«  aatbYtaf 
tamp  f«  SHR (nawchar* 1 ) f 
IF  (OOO(tamp)  AND  ODD(bitiiiask) )  THEN 
putbYta ( nawchar >  outbuf far ) 

ELSE 

putbYta(nawchar* outbuf far > f 
whilacountar  whilacountar  *  If 
END  (a  WHILE#) f 
END  (*FORa)f 

opraction  :■  Of 

FOR  loopcountar  fa  0  TO  opracloops  DO 
BEGIN 

tamp  fa  taatbYtaf 
CASE  opraction  OF 

0«3f9  f  mixrac.eharbuffarCopractionl  f a  CHR(SHR( tamp*3> ) f 

1.4,7  f  BEGIN 

LFTR0L(tamP.2}f 
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mixr«c. ch%rbuf f •rCopr«ction3  s* 

CHR(ODO(t«inp)  AND  000( bitmask) ) 

ENOt 

2>6  I  ntixr«c. ch«.rbuff«r  inbuf'fert 
ELSE 

niixr«c.  intnumb«r  ((((int«9«rl  DZV  int«9«r2)*int«9«r  1 ) 

OIV  int«««r2)*int«9«r2)  int«««rl 

END  (»CASE*)I 

09r«ction  :■  o^raction  +  U 
IF  09r«ction  >  9  th«n  opr«.ction  :■  0 
END  (*FOR*)J 
END  (»k«rn«1»)t 


BEGIN  (»  MAIN  PROGRAM  EXECUTION  «) 

URITELN('  B«9in  B«nchmArk  Ex«cution^); 

FOR  timin9loop«r  s»  0  TO  «.rr«.vsiz«  DO 

4rraY2Cti(nin9l  009«rl  timinsi  oof>«r I 


FOR  timin«1oo9«r  :■  0  TO  buff«rm«x  DO 
inbuFf «rCtiinin«1  oo9«r]  >■  "A^t 

Inbuf F#r Cit*,rtbYt*3  »«  sta.rtcod«t 
inbuf^tr  :■  Ol 
outbuFptr  :■  01 

FOR  timinsi oop«r  !■  0  TO  timin»cntr1  DO 

O  O.  k^rn^n 

uirit«1  n(fflixr«c«  ch«rbuFf«r«fflixr«c.  intnuiiib«r)i 
WRITELN('  End  B«nchni«rk  Ex«cution'') 

END. 


O 


G 


O 

o 
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(«tZ  int«rsp«rs«  Pascal  tourc*  in  «smb1  sourc*  *) 

(*  OCT  HOL  BENCHMARK  in  Pasca.1/Z  from  Ithaca.  ZntarsYstams  ») 

(♦  Writtan  bv:  Ca^t  B.F.  BRADY»  U.S.M.C.  *) 

PROGRAM  DCTBENCHMARK; 

CONST 

arravsiza  «  12S* 
numbarmsss  »  200; 
o^racloo^s  >■  100; 
io^ort  »  200; 
ioloops  *  575; 
timinacntrla  2; 
tastbvta  a  35; 
intaaarl  »  300; 
inta9ar2  ■-150; 
bitmask  »  l; 
msslanath  «  80; 

Btartbvta  ■  10; 

buf farmax  »  15; 

TYPE 

buffartYPa  «  ARRAYCO. . buf farmaxi  of  CHAR; 
mixadtYPa  *  RECORD 

charbuffar  *  buffartYpa; 
intnumbar  :  INTEGER 
END  (aRECORO  mixadtYPa*); 

VAR 

timinsloopar  t  INTEGER; 

Inbufptr* outbufptr  ;  INTEGER; 

apraYl.arraY2  ;  ARRAYCO. .arraYsisal  of  INTEGER; 
inbuffar  J  buffartYPa; 
mixrac  ;  mixadtYPa; 

FUNCTION  satbYta  :  CHAR; 

VAR 

local pnt  :  INTEGER; 

BEGIN 

locaipnt  ;■  inbufptr; 
inbufptr  :■  inbufptr  +  l; 

IF  Inbufptr  >  buffarmax  THEN  inbufptr  ;«  0; 
satbYta  ;«  inbuf farClocalpntl 
END  (asatbYta*); 

PROCEDURE  PutbYta  <VAR  inchar  »  CHAR;  VAR  putbuffar  *  buffartYPa) 
BEGIN 

putbuf ^arCoutbufptr 3  ;■  inchar; 
outbufptr  ;■  outbufptr  +  i; 

IF  outbufptr  >  buffarmax  THEN  outbufptr  ;■  0 
END  (aputbYtaa); 


PROCEDURE 

ANDCHR (VAR 

tsmF 

i 

INTEGER) 

mssk 

s 

s 

INTEGER  > ) EXTERNAL? 

PROCEDURE 

OUTPUT (VAR 

tsmF 

i 

INTEGER? 

Fort 

t 

INTEGER  >  ?  EXTERNAL  ? 

PROCEDURE 

LFTROL(VAR 

tsmF 

i 

INTEGER? 

bits 

s 

s 

INTEGER ) ?  EXTERNAL  ? 

PROCEDURE 

RTSHFT(VAR 

tsmF 

m 

s 

INTEGER? 

bits 

1 

INTEGER ) ?  EXTERNAL? 

PROCEDURE  k«rn«n 
VAR 

outbuff«r  :  buff*rtYMl 
1 ooPcount«r« uhi 1 «count«r  :  INTEGER^ 
op>raction«  i  INTEGER* 

n«tiich«.r  s  CHAR* 

BEGIN 

uirit#1  n  (  'k*rn*l  "  )  5 
uir  i  t«1  n(  ^  iol  oo^s*" )  * 

FOR  1oo^count«r  :«  0  TO  ioloo^s  DO 
BEGIN 

t*stbYt*; 

OUTPUT ( tdfliPi io^ort) 

END  ( *FOR* ) 5 

wr i t«1 n ( 'arriYl oofs" ) » 

FOR  looFcountsr  »■  0  TO  •rr*YSiz*  DO 

4rr*YlC1 ooFcountsrl  *■  4rr*Y2C4rr4Ysiz*  -  1 ooFcountsrli 

wr it*1 n( "mss 1  oofs" ) l 

FOR  looFcountsr  o  TO  numbsrmsss  DO 
BEGIN 

REPEAT 

nswchAP  s»  sstbYts 
UNTIL  n«wch«r  ■  "S"» 

whilscountsr  i"  Ol 
VIHILE  whi1«count«r  <  mssisnsth  DO 
BEGIN 

nswchsr  :■  sstbYtst 
tsmF  :«  ord(n«wch«r} I 
RTSHFr<tsmF»l)l 
ANDCHR ( tsmFi b i tm«sk ) t 
IF  tsmF  ■  1  THEN 

FutbYts  <  n«wch«r«  outbuf f «p ) 

ELSE 

FutbYt«(nswch«.ry  outbuf  fsr)  t 
whilscountsr  whilscountsr  *■  I 
END  («  WHILE*) 

END  (*FOR*)T 

OFr*,ction  *«  0* 
writs) n< "oFrI oofs" ) » 

FOR  looFcountsr  i«  0  TO  ofpscIoofs  DO 


BEGIN 

t«mp  :■  t«stbYt#? 

(•4J9  Comi>il«r  of>tion  to  cr««t*  CASE  Jump  Tablo  for  0.  .9  *) 

CASE  opr*ctlon  OF 

0,3.9  :  BEGIN 

RTSHFT<t«mp.3>J 

mixpoc. charbuf forCopraction]  :»  chr<t«mp) 

ENDf 

1.4.7  :  BEGIN 

LFTR0L(temp.2)» 

ANOCHR  <  t«mp . b i tmas  k ) ; 

mixroc. charbuf forCopraction]  :»  chr(t«mp) 

END; 

2.6  :  mixrec. charbuf for  :»  inbuffor? 

ELSE: 

mixrac. intnumbar  ((<<int«9«rl  DZV  int^9*r2)*int**^rl ) 

DIV  int«9ar2)*inta9ar2)  +  inta9arl 

END  (»CASE*): 

opraction  s«  opraction  +  it 
IF  opraction  >  9  than  opraction  :=  0 
END  ( aFOR* ) 

END  (akarnala); 

BEGIN  <#  MAIN  PROGRAM  EXECUTION  *) 

WRITELN('  Baain  Banchmark  Exacution" ) l 

FOR  timlnsloopar  :«  0  TO  arravsiza  DO 

arraY2Ctimin9l ooparl  *»  timinal oopar* 

FOR  timinaloopar  »■  0  TO  buffarmax  DO 
inbuf far Ctiminal ooparl  *»  "A"? 

inbuf far CstartbYtal  :«  ''S'l 
inbufptr  :■  Ol 
outbufptr  :■  01 

FOR  timinaloopar  :■  0  TO  timinacntrl  DO 
karnal » 

WRITELNCmixrac, charbuf far.mixrac. intnumbar ) : 

WRITELN<chr<7) ,  '  End  Banchmark  Exacution'')  • 

END. 


/»  BENCHMARK  PROGRAM  IN  PLI/SO  FOR  CP/M  */ 
/*  Written  bv:  Ca^t  B.F.  BRADY,  U.S.M.C  ♦/ 

BENCHMARI<_PL  I  -30 : 

PROCEDURE  OPT IONS (MAIN)* 

•/JREPLACE  /*  DEFINE  CONSTANTS  */ 


opr_action-1  oof»s 

BY 

100, 

timins-control 

BY 

1, 

4.rraY-siz« 

BY 

12S, 

io_1 OOPS 

BY 

575, 

io_Fort 

BY 

200, 

nufflb«p-ms9S 

BY 

200, 

tost-bvto 

BY 

'55'B4 

buf f*r_m«x 

BY 

15, 

intosor 1 

BY 

300, 

int«9«r2 

BY 

150, 

bit-mask 

BY 

'I'B, 

ms9-1 «n«th 

BY 

30, 

start-bYt* 

BY 

10, 

start-cod« 

BY 

'S'? 

/# 

DEFINE  EXTERNAL  PROCEDURE  ENTRIES 
*/ 

DCL 

OUTPUT  ENTRY(BIT(3),BIT(S)). 

RTSHFT  ENTRY(BIT(3),FIXED(7>), 

LFTROT  ENTRY(BIT(3),FIXED(7>)! 


/» 

DEFINE  VARIABLES  FOR  MAIN  PROGRAM  t 

#/ 


DCL 

1  mix*d-tYF«  STATIC, 

2  ch«r«ct«r-buf  (0:  buf  f«r-max)  CHARd), 

2  lnt«9«r-nuinb«r  FIXED  BINARY^ 

DCL 

in^ut_buf4=*p<0:buff«r_m*x)  CHARd)  INIT1AL(  dO)  "A' , 'S' ,  (5)  "A"  )  STATIC, 
out_buff*r_Point«r  FIXED  BINARY(7)  STATIC, 
in-buff*r_i»oint*p  FIXED  BINARY(7>  STATIC, 
tirain»_1ooF_count«r  FIXED  BINARY  STATIC, 
i  FIXED  BINARY(7)  STATIC, 

4rr4Y-2<*rr*Y_5i2«)  FIXED  BINARY  STATIC? 


/* 

PROCEDURE  AND  FUNCTION  DEFINITIONS? 
*/ 


PUT-BYTE? 

PROCEDUREC in_ch*r*ct«r, put-buf ) l 
DCL 

ln-ch«?r4ct*r  CHARd), 

(•ut-buf  f •r  (0?  buf  f #r-maix)  CHAR<  I )  ? 

BEGIN? 

^ut_buff*r<out-buf f*r-?»oint*r)  ■  in-char«ct*r? 
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out_buf f*r_point«r  «  out.buf f«r.point«r  +  H 
IF  out-buf f*r_Foint«r  >  buff*r_max  THEN 
out_buf f*r_point*r  ■  0? 

END; 

END  PUT.BYTE; 

GET-BYTE: 

PROCEDURE  RETURNS<CHAR(1) );  /*  A  FUNCTION  DEFINITION  */ 

DCL 

loc»l_Foint«r  FIXED  BINARY(7); 

BEGIN; 

/*  SAVE  INDEX  IN  1 oca1_Foint*r  FOR  THE  RETURN  */ 

1 ocaI_Foint«r  ^jn-buf f*r_Foint*r; 
in-buf f«r_Foint#r  ■  in_buf f*r_Foint#r  +  1; 

IF  in_buf f«r-Foint«r  >  buff«r-max  THEN 
in-buffar-Fointar  «  0; 

END; 

RETURN< inFut-buf ( 1 oca1-Foint«r) ) ; 

END  GET-BYTE;  /*  END  FUNCTION  GET-BYTE  »/ 

KERNEL: 

PROCEDURE; 

DCL 

out-buff«r(0:buff«r-max)  CHAR(l)  STATIC. 
looF-countar  FIXED  BINARY  STATIC. 
arraY-l(arraY-si2«)  FIXED  BINARY  STATIC, 
na«ii-charactar  CHAR(l)  STATIC, 
tamp  FIXED  BINARY(7)  STATIC, 
oparator-action  FIXED  BINARY<7)  STATIC, 
uihi la-countar  FIXED  BINARY(7)  STATIC; 
begin; 

DO  looF-countar  ■  0  TO  io-loops; 

CALL  output  {  io-Fort, ''tast-bYta  > ; 

END;  /*  I/O  Loop  */ 

DO  looF-countar  ■  0  TO  arraY-siza; 

arraY-l  <  1  ooF-countar  )»arraY-2<arraY-siza  -  1  oop-countar ) ; 

END;  /*  ArraY  loop  ♦/ 

DO  looF-countar  «  0  TO  numbar-ms9s; 

DO  UHILE(9at-bYta( )  start-coda); 

END;  /*  DO  WHILE  */ 
uhila-countar  «  0; 

DO  WHILECwhila-Countar  <  mss.) ansth ) ; 
naw-charactar  *  sat-bYtaO; 
tamp  ■  UNSPEC(naw.charactar ) ; 

CALL  rtshftd.tamp); 

IF  (UNSPEC(tamF)  8c  bit.mask)  THEN 

CALL  Fut-bYta(naw-eharactar,out-buffar); 

ELSE 

CALL  Fut-bYta(naw-charactar,out_buf far ) ; 
whila-countar  >  uihila-countar  *•  l; 

END;  /•  WHILE  Loop  */ 

END;  /*  Hassasa  Loop  •/ 

Q  oparator-action  ■  0; 

DO  loop-countar  ■  0  TO  OPr-action-1 oops; 
put  skip  T ist(oparator-action,mixad.tYPa. charactar-buffar (oparator-actior 


.  O 


2 
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GOTO  CASE< OF«r«tor_action ) I 


CASE(O):  ; 

CASE(3):  t 
CASE(9): 

t«mp  ■  t«st_bYt«i 

CALL  rtshftO.tamp)? 

UNSPEC(iKix«d_tYf>«. charact«r_buf  f ar  ( oF«rator_action ) ) 
GOTO  END»CASE; 


UNSPECCte 


CASEd):  ; 

CASE(4):  ; 

O  CASE(7): 

t«m^  ■  t«st_bYt«t 
CALL  1ftrot(2.t*mi»)? 

UNSPEC(inix«d-tYP«. charactar.buf f«r  ( op«rator_action ) )  ■ 

(UNSPEC(  t«mp)  it  bit.mask)} 

GOTO  END_CASE5 

CASE<2):  ; 

CASE(6): 

mix«d_tYP«. charact«r_buf f*r  ■  in^ut-buf f«rt 
GOTO  END-CASE t 

/♦  OTHERWISE  */ 

CASE(5):  ; 

CASE(3): 

mixad-tY^#. int*»«r_numbar  * 

< ( ( ( int«9«rl/(-int«««r2) )*int«»*rl >/(-int«*#r2>  >»(-int*9*r2) )  +  tnta9e 
'  y  END-CASE: 

i»ut  skip  1  ist  (op«rat  <5r-*ction.mix«d-tYP*.  charact*r-buf  f*r  ( op*rator-actior 
op*rator-*ction  ■  op«rator-action  +  1? 

IF  OP«r«tor-action  >  9  THEN  OP*rator-action  ■  0» 

END:  /*  Operator  Action  Loop  */ 

END! 

END  kernel: 


Z**********************-*******#**/ 

/*  Basin  main  prosram  axacution  */ 

/ ***«*««««**««««««»«««««««**««««« / 

BEGIN: 

PUT  SKIP  LIST!"  Basin  Banchmark  Exacution" ) : 
input-bu#far (start-bYta )  ■  start-coda: 

DO  timins-1 oop-countar  a  0  TO  arraY-siza: 

arraY-2( timins-1 oop-cogntar )  *  timins-l oop-countar: 
END:  /*  initial iza  appaY-2  */ 

DO  timins.l ooP-countar  ■  0  TO  timins-control : 

CALL  karnal: 

END:  /•  main  timins  loop  «/ 

PUT  skip: 

DO  ial  TO  buffar-max: 

PUT  LIST(mixad-tYPa. charactar-buf far ( i ) ) : 

END: 
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riLiNAMS; 


3MPLIS.PLI 


O 


O 


3MAHI:  PHOCEDtJRS  OPTIONS  (MAIM)? 


« 

« 

« 

« 


DOT  3SNCHMAHI  PR033AM  IN  PL/I-Sa 


’iHITTS.N  3T: 
DATS: 


?.  ?.  MACLACHLAN 
lA-OCT-aa 


i* 

« 

* 

* 


Q 


O 


%S£PLACS 


ARRAY  SIZE 

3Y 

125, 

BITMASK 

3Y 

1  3. 

BUFFER  MAI 

3Y 

15, 

INTEGSRl 

31 

300, 

INTSGIR2 

BY 

(-150) 

10  LOOPS 

3Y 

575, 

lO'POHT 

3Y 

200, 

MSG  LENGTH 

3Y 

80, 

NUMBER  MSGS 

BY 

200, 

CPR  ACflON  LOOPS 

31 

100, 

START  CODE 

3Y 

'S' 5 

TEST  BYTE 

BY 

'55 'B4 

TIMING  CONTROL 

3Y 

12; 

WON'T  ACCilPT  (-150)  If 


/*  ADJUST  •/ 


/#  35  DECIMAL  V 


OCL 

SHIFTS 

SOTATL 

OUTPUT 


ENTST  (3IT(a),  ?IXSD(7))  HETUSNS  (3IT(9)), 
SNTST  (BIT(a),  FIXSD(7))  RETURNS  (3I?(3)). 
SNiai  (PIXEU(7),  3IT(8)); 


UCL 

NEW  CHAR  CHAR, 

0UT"3UP7BR(a:15)  CHAR  STATIC,  /*  NOTE:  COULD  USE  CHARde)  ♦/ 


AaRATl(0:ARRAT_SIZS)  FIXED  BINARY, 
ARRAT2(0: ARRAY  SIZE)  FIXED  BINARY, 
IN  BUFFSB(0:15}  CHAR  STATIC  INITIAL 


IN  BUFFER  PTR 

FIXED 

BINARY  STATIC  INITIAL 

(0), 

LOOP  COUNlSR 

FIXED 

BINARY, 

OPR  ICTION 

FIXED 

BINARY, 

OUT  BUFFER  PTR 

FIXED 

BINARY  STATIC  INITIAL 

(0), 

TIMING  LOOPSR 

FIXED 

BINARY, 

WHILE  Counter 

FIXED 

BINARY, 

1  MIXED  TYPE  STATIC, 

2  CHAR  BUFFER (0:15) 

CRAB, 

o 

2  INT.NUMBER 

FIXED  binary; 

3ST  3YTS: 

PSOCEJURE  RETURNS  (CHAR); 
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DCL 

c  char; 

C  «  IN  B'JFFBRdN  R'JFFBH  PTR); 

IN  3UF?EH  PTR  »  iN  SUFFSR  PTR  +  i; 
IF’IN  31IFFER  PTR  >‘3UFFSR  MAX  THEN 

im"2uffer"ptr  •  e; 

RETURN  (C); 

END  SET  3YTZ; 


PUT  BYTE: 

PROCEDURE  (IN  CHAR,  PUT  BUFFER); 

DCL 

IN  CHAR  CHAR, 

P0T_3UFFEH(3:BDFFER.MAI)  CHAR; 

PUT  3UFFEa(0UT  BUFFER  PTR)  «  IN  CHAR; 
OUT’BUFIER  PTR"«  out  suffer  PTR  +  i; 
I?  3UT  BUFfER  PTR  >  lUIFER  MAX  THEN 

out'buffeh“ptr  »  a; 

END  PUT  byte;" 


XERNAL: 

pROc; 

DCL 

0UT.B0FFEH(2:BUr?Ea.«AI)  CHARf 

DC  LOOP  COUNTER  ■  0  TO  10  LOOPS; 

CALL’OUTPUTdO  PORT,  ""TEST  BYTE); 

end; 

DO  LOO?  COUNTER  -  0  TO  ARRAY  SIZEi 

ARRAYKLOOP  COUNTER)  -  AHRAY2(AHRAY  SIZE-LOOP  COUNTER); 

end;  ■*  ■  " 

DO  LOOP  COUNTER  «  2  TO  NUMBER  MSGS! 

NEW  CHAR  «  SET  BYTE(); 

DO  WHILE  (NSW  SHAR  «  START  CODS); 

NEW  CHAR  -"set  BYTEO; 

end; 

WHILE  COUNTER  -  0; 

DO  WHILE  (WHILE  COUNTER  <  MSS  LENGTH); 

NEW  CHAR  -  GST  BYTEO; 

IF  SHIFTR(UNSPSC(NEW  char),  I)  &  '13  THEN 
CALL  PUT  BTTE(NEW.CEA£,  OUT  BUFFER); 

ELSE 

CALL  PUT  BYTE(NEW.CHAB>  OUT  BUFFER),* 

WHILE  COUNTER  -  WHILE  COUNTER  i; 
end;  7*  DO  WHILE  V 
end;  /*  DO  LOOP. COUNTER  */ 

OPR  ACTION  -  0! 

DO  lOOP.COUNTER  -  0  TO  OPR.ACTION  LOOPS;  B-48 

GOTO  CAS2(0PR  ACTION); 
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OtA33(2):; 
’O  '^aS3(3):; 
CA3Z(9):: 


0NS?iC(MlXS3  TY?S.CaA2  BnJ?E2(0?a  ACTION)) 
seiftr(TaSt  byts.  37; 

00 ro  END  CASS; 


O  CASSd):; 
:AS3(4):; 
:ass(7):; 


[INSP2C(MIISD  TYPS.CEAa  BUFFSaCOPR  ACTION)) 
ROTATL(TSST  BYTE,  27  &  3ITMASS; 

OOTO  END  case; 


CASS(2):; 

^A3^(S) * • 

’’mixed  type. char  buffer  -  IN  buffer; 

SOTO  snd.case; 

o  CAS3(5):; 

CASE(a) :; 

MIXED  type, I NT  NUMBER  » 

((KINTSSERI  /  (-150))  *  INTSSEEl)  /  (-150))  *  (-130))  ♦  INTEGEEi; 

END  CASE:; 

_  "  OPR  ACTION  ■  OPR  ACTION  ♦  i; 

0(^  I?  3?H  action  >  §  THEN 

^  OPS  ACTION  »  0; 

end;  /*  do  loop. counter  «  0  10  ope.action.loops  */ 

END  xernal; 

*  START  OF  MAIN  PROGRAM  * 

DCl 

I  FIXED  binary; 


PUT  SKI?  LIST  ('BEGIN  3SNCHMARX  EXECUTION'); 
DO  I  -  3  TO  BUFFER  MAi; 

ARRAiad)  «  i;  " 

end; 

DO  TIMING  LOOPER  -  0  TO  TIMING  CONTROL; 

CALL  eIrnalO; 
end; 

DO  I  «  0  TO  13? 

PUT  LIST  (MIXED  TTPS.CHAR.BUFFER(I) ); 

end; 

PUT  LIST 

(NIXED  TTPS.INT  NUMBER, 

'END  SlSCUTlON*); 

END  BMARX; 


PL--<X'  CCMPILER-VERSIONT  STJ;^ - 

CCPyPIGHT  (C)  19a0i  SYSTEMS  CONSULTANTS,  INC. 

END  GF  FAST  COMPILATION 

'’IDCO  f.':?,e?cR(S>  detected 


♦ 

_  3ENCHMARK  -~Pr/n~UEf7STDN  * 


* 


» 


bmsrk;  do; 
iac lara 


aqu 

ARRAY«SIZE 

bitmask 

3UFFER«SIZE 

CR 

INTI 


~1  i  t8r~a  1  ly 
aqu 
equ 


'litarally 


aqu 

aqu 

equ 


'126', 

'Olh 

'-rs'^T— 

'ODh 

'200'. 


/*  0.  .  125  */ 


TiF-orriS  *  / 


rNT2~ 

equ 

lOSLOOPS 

equ 

'375', 

lOdPORT 

equ 

'200', 

/* 

adjust  e/ 

lf 

aqu 

'OAh  ’  " 

MSGdLENGTH 

equ 

'SO', 

NUMBER6MS6S 

equ 

'80', 

apR*ACTTaN*i:aop5~ 

equ 

'100 '7'“ 

STARTdCODE 

equ 

'053h', 

/* 

ascii  big  S  */ 

TESTdBYTE 

equ 

'85', 

equ 


declare 

arrayT TARRA Y^STZET  address, 
array2( ARRAYSSIZE)  address, 
i  address, 

- ^fn^BurPer  rBUFFEH«SIZE)  'byte  initial  <  ' AAAAAAAAAASAAAAA ''TT 

in«buf f ar«ptr  address  initial  (0), 
out*buPf er4ptr  address  initial  (0), 
fTmTng  RToop" er"“a<rdreBbi 


declare 

ini  X  etf^t'fy  p  e  s  tr  iTc  tuFe  \ 

char«buPPer<BUFFER«SIZE)  byte, 
int^number  address 

- n - 


nfflout:  procedure  (value,  base,  Ic,  buf,  width)  external; 
aecTari 

(value,  buf)  address, 

(base,  Ic,  width)  byte; 
end  nmout;  ' 


711  : 

*  signed  16  bit  divide  (dS  /dl) 

*' — ^  */ 

divid:  procedure  (dl,  dS)  addf'd'id  •xsd'fnal; 
declare 

(dl,  d2}  address; 
end  divid; 


*  print  charactar  string 


until  11  ancountered 


O 


jrSduf:  procadura  (strp)  a:<tarnali 
Jac lara 

strp  addrass* 

3nd~pF*BUfr  ■ 

O 

!•  irint  character  at  console 


urscon:  procedure  (ch)  externali 
dsclarg 

ch  bgtei 
end  uir*coni 

<0 -  -  - 


/  * 

^  print  addrass  variabla  at  console  with  one  leading  spaca 

- 

putdec:  procedure  (num); 
declare 

num  address*  ~ 

buf<7)  bgta;  /*  scratch  buffer  for  conversion  */ 


call  nmout rn'ulm  TDl  ’  ’1  .  buf*  5TT 
buf(6)  »  "t'i 
call  pr4buf (. buf ) i 
end" putdeci  . 


7*  ■  ~ 

*  get  the  next  byte  from  in*buffer»  increment  in’tbuPfiBriptr 

.  y  prdcedura  ’b~y te)  "  ' 

declare 
c  byte* 

c  »  in*buffer ( in*buffer<ptr)» 
f)  in^buf f er*ptr  ■  in*buf f er*p tr  +  1.- 

i7~fn#buff^Bf  ♦ptr  .>  last  (  inebuf  rer )  tnen 
in'fbuf fer^ptr  »  Oj 
return  c; 


o 

end  get^byte;  ^  " 

7* 

*  put  character  into  buffer*  increment  out*buf f er«ptr 

*/ 


put^by te:  procedure  ( ln4cnar«  pF77 
dec lare 


O  _ 

in'bchar  byte* 

TpF;  pc)  address* 
put«char  baeed  pc  byte) 

pc  •  pb  r  eufmburf er^ptr) 

compute  ptr  to  next  cell  in  'buffdr  */ 

put«char  ■  in^char; 

O  oot<bu#fer<ptr  «  out«buf fer4ptr  ♦  1; 

- mauf»WfTer<ytr  >  BUFR-HtaiZE  -  1  then - 

out^buf fer«ptr  ■  Oi 
end  put^bytei 

- - - - - - 3^ 


^  /* 


'  (tampl>  tanip£)  address* 
i  address* 

loop4counter  address* 
new4char  byte* 
opr4action  addrass* 
oTrt*buffer'CHUFFERlSrZE7“5'yTe7 
u)hi lal^countar  address* 

io  loop^counter  =''0“Td‘'T0'51IDCFSi 
output ( lO^PCRT)  =  not  TESTSBYTEj 
and; 

d  o  1  dop4c ounter^  ““O'  to  last  (array  1 )  • 

arrag  1  <  loop4counter }  »  arrag2(ARRAY9SIZE-loop4*countar  )  > 
end; 

do  loopicounter  ^  O“fco  NUMBErt*hsjtri»i  ~ 

do  while  ((new«char  gatSbgta)  O  START$CODE>: 
and  * 

whTI encounter  »  0; 

do  while  (whil encounter  <  liSGSLENGTH ) * 

if  shr  ( <naw*char  get«bgte)*  1>  then  /*  tests  onlg 
"  call~  put$bg~te  (new*char*  TooTSSUf  Fer ) ;  "  “ 

else 

call  put^bgta (naw^char*  . outfbuf f er >* 
whTre^c^hter  «  wniia^counter  *  Fi 
end;  /*  do  while  «/ 
and;  /*  do  loop*countar  »/ 

apr4action  »  0* 

do  loop«countar  »  0  to  aPR^ACTIONCLOOPS; 

if"  6pr#actTdrr"*~0  or  opraaction  »  Is  or  oprSacTfTon  *  9  t» 
mixed^tgpe.  char4ibuffer(opr4action)  » 
shr<TEST»BYTE*  3); 

eFse'  if  dprdiairtion  »“1  or  opr#ac«iorr"«”4'  o>"opr#ac'ti'or5~i 
mixed^tgpa.  chardhuffar(opr«action>  » 
roKTESTSBYTt.  2)  and  BITMASK; 
eTse  TF  dpr^act'foh  ■  2  or  opr«action  »  tt  then 
do  i  a  0  to  last<fflixed«tgpe.  chardbuffer ); 
nixeddtgpe.  char«buf f er < i )  »  in*boffer(i ); 
arid"; 

else  do;  /*  default  */ 

tempi  -  divid(INT2*  INTI)  *  INTI* 
temp2  <■  dlvia<iNi2*  EempTTJ 

fflixsd^tgpe.  int«number  *  teflip2  *  1NT2  *■  INTI; 
end; 

dpr<acFidri"  *■  oprVactlon  +  i* 
if  opr^action  >  9  than 
oprdaction  <■  0; 

- anirr  7»  Jo  loopBcbuntdr  *  O' to  OPHIACTIDNBLOUHS  V7 - 

end  kernel; 

»  start  of  mmin  program  * 


bit  0  */ 


call  pr*buf(.  ( 'Begin  benchmark  execution'*  CR>  LF> 
"Jo  1  ■  <r'tb"Tasf'<arrag2); 
arrag2(i)  *  i; 
end; 

~Jo"timing»loopef~*  O'  to"  riWlNWCONrROU - 

call  kernel; 
end; 

■ao~r  ff"0"  to  BDFFER*8T7E~=-I1 - 

call  wr9cen<aixed«tgpe.  char9buffer( i ) ); 

_ endj - - - - - - — 


11  pr<bui*(.  ('End  Ejjacution  •'/  LF/ 

d  bmark; 


•Mis  ;i  THE  :^CI3SA  !)CT  BENCHMARK  IN  PLZ .  CREATED  ’^T  ^rC:;[£M  ON  .;4i:EPsO 
j-i  .'  A  QAri-iEKED  ON  20Cr30.  USED  ZDS  1/40  MOS .  PLZ  REVISION  H,  1 

r.C  retTNCHMARK  MODULE 
CONS TAN r 

ARRAVSIZE  !=  125!  lOL'ORS  :=  375:  0RRAC7 lONLOOPS  !=  100! 
riMlACCONTPOL  :=  12!  lOPORT  ;=0l;  NUMBSRMSOS  2Q0;  TESTSyrE  i=  S 

--v  JNTECERi  :=  300!  1NTEGER2  :=  -150!  BITMASK  J -•  l!  MSGLENGTit  :=  30 

J  SC.'TSRNA,;  :=  13!  SrARTCOOe  :=  ’S'!  CONOUT  J-  2! 


CHAR  ByTE:  '  CHAR  IS  OF  TYP-  SYTE  : 

.3iji;FE;?rypg  arraycbuffermax  -i-  i;  charj; 

-M 1 A  i<  S  u  ^  !  R  •’■  E  U  F  I- !;  R  f  Y  F  E  ! 


O  TNTERMAI. 


^Lr,  liTklrtG  PROCEDUREfUNIT  CHAR,  FTR  'MCHAR)! 

RmTCHARS  PROCEDUREdJNIT  CHAR,  PTR  -MCMAR,  LEN  NORD;! 
'■'UIINIEGER  PROCEDUREYUNIT  CHAR,  INT  INTEGER); 

OUTPUT  PROCSOURHC FIRST  :  CHAR  ,  SECOND  :  CHAR); 

Sh.TFTR  PROCEDURE  (THIRD  :  CHAR  ,  FOURTH  :  CHAR) 

J  RETURNS  (RSLTl  :  CHAR): 

ROTATL  PROCEDURE (FIFTH  :  CHAR  ,  SIXTH  :  CHAR) 

RETURNS  (RSLT2  :  CHAR); 

OIOID  PR0CEDURE(0IV1S0R  !  INTEGER  ,  DIVIDEND  :  INTEGER) 
RETIJRNS(  QUOTIENT  :  INTEGER;! 


BEGIN  GLOBAL  (TO  THIS  MODULE)  DATA  DECLARATIONS  1 
INTERNAL 

TIMINGLOOPER,  LOOPCOUNTER ,  WHILECOUNTER,  OPRACTION, 
IN6UFFERPTR,  OU TBUFFGRPTR ,  TEMPI  ,  TEMP2  :  INTEGER; 

ARRAYl,  ARRAYZ  !  ARRAYC ARRAYSI2E  +  i:  INTEGER!! 

:  IN8UFFER  !  SUFFER  TYPE! 

xENCHAR  ;  CHAR; 

MIXEOTYPE  !  RECOROC 

CHARBUFFER  ;  BoFFERTYPE! 

INTNUMBER  :  INTEGER!  J  !  END  RECORD  HIXEDTYPE  | 
:  END  DATA  DECLARATIONS  ! 

1  BEGIN  INTERNAL  PROCEDURE  OECLARATIONS/OEFINI TIONS  ! 


CETBYTE  PROCEDURE  RETURNS ( RETURNBYTE  :  CHAR)! 

ENTRY 

St’TURNBYTE  :=  INBUFFER C  INBUFFERPTR 3  ! 

INBUFFERPTR  +»  i! 

IF  INBUFFERPTR  >  BUFFERMAX  THEN  INBUFFERPTR  :=  0  Fl! 
END  GSTSYTE; 


O 


PU'iBYTE  PROCEDURE  (INCHAR  ;  CHAR,  CHARPTR  :  CHARBUFPTR)! 

I  NOTE  THAT  CHARPTR  POINTS  TO  TYPE  SUFFERTYPE.  IT  SHOULD  BE  PASSED  ‘ 
THE  ADDRESS  OF  THE  BEGINNING  OF  THE  ARRAY  UPON  WHICH  IT  WILL  OPERATE. 


ENTRY 

CHARPTR'^COUTeUFFERPTR]  INCHAR! 

0UT3UFFERPTR  +=  1 ! 

IF  OUTBUFFERPTR  >  BUFFERMAX  THEN  OUTBUFFERPTR  :=  0  FI ! 
END  PUTBYTE! 


KFRNEL  PROCEDURE! 
i J  LOCAL 

I  :  INTEGER!  I  LOCAL  COUNTER  ! 

OUrSUFFER  :  SUFFERTYPE! 

'  BOTH  I  AND  OUTBUFFER  ARE  AUTOMATIC/DYNAMICALLY  ALLOCATED  1 
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o 


(.OuPCOUNTER  i=  0: 

■;>o 

V--  i. :opi:;ouNTER  >  .oloops  then  exit  ki; 

OUTPIJT  ■;  NO  t  rcSTSYTE  )  ..  lOPORT  •  i 
;  .  Vh'CCUN'l  ER  ■’-ii 
ju 

u.  OOPCOUNTER  !"  D; 


Xr  LOOPC  ' iJNTER  >  ARRAVSIZE  I'tiEN  EXIT  !-Ii 

IILOOPOOUNTER  ]  !=  HRRAYZc  ARRAY  ill  2E  -  LOORCOHN  TER  J  ; 
.  :OP'::OUNTER  +=  .1; 


or' 


L  COF  jounter 
00 


IF  LOOPCOUNYER  >  NUMEERMSGS  THEN  EXIT 

■■'U: 

NEWCHAR  GETSYTE: 

li-  NEWCHAR  =  :5TARrC0De  THEN  EXIT  FI; 
i.>C 

XHILECOUNTER  !-  0: 

00 

IF  WHILECOUNTER  >-  NSGLENGTH  THEN  EXIT  FI; 
NEWCHAR  ;=  GETBYTE; 

IF  (SHIFTRiNcWCHAR,  1)  AND  BITMASK)  a  1  THEN 
P|JT3Yr£(NewCHARr  SOUTSUFFSR); 

'  PUTBYTEi  NEWCHAR-  40UTBuF  i-ER  )  ; 

Fl; 


ij 


WHILECOUNTER  +=  IJ 
ENO  OF  ('LZ  FORM  OF  00-WHILE  LOOP 


LOOPCOUNTER  +«  l; 

iD  ;  InD  of  for  LOOPCOUNTER  FROM  0  TO  NUMBERMSGS  LOOP 

•.•'.ACnON  0; 

.OOPCOUNTER  !=  o; 


00 


if  LOOPCOUNTER  >  OPRACTIONLOOPS  THEN  EXIT  Fl ; 
IF  OPRACTION 


CASE 

0,3,9 

THEN 

MIXEDTYPE.CHARBUFFERLOPRACTIONI  := 
SHIFTRITESTSYTE,  3); 

CASE 

1 ,  A,7 

THEN 

MIXEDTYPE.CHARBUFFERCOPRACTIONj  !* 
ROTATLITESTBYTE,  2)  AND  BITMASK; 

CASE 

2,4 

THEN 

o 

II 

t-i 

00 


OD 


IF  I  >  BUFFERMAX  THEN  EXIT  FI; 
MrXEOTYPE.CHARBUFFERCr:  •’ = 
INBUFFERCI3 ; 

I  +=  l; 


ELSE 

TEMPI  !»  OIVIOdNTEGERZ  .  INTEGERl)  *  INTEGER!; 
TEMP2  !»  OIVIOdNTEGERZ  r  rEMPl); 
MIXEDTYPE.^INTNUMBER  !« 

'  NOTE!  ALTHOUGH  NOT  CLEAR  FROM  THE  OOCUMEN?ATI<)Ny^?Hi‘^DI VIDp.^H«OWN  BELOW  WILL 
NOr  WORK  SINCE  PLZ  HANOLES  NEGAriVE  NUMBERS  INTERNALLY  AS  THOUGH  THEY  WERE 
LARGE  POSITIVE  NUMBERS.  FOR  EXAMPLE,  4/<-Z;  IS  EQUAL  TO  ZERO.  ***■*■»**  > 

■^v  !  MIXEOTYPS.InTNUMBER  !«  <  <  <  (INrEGSR!.' INTEGcRZ; 

*  INT6GER1;/INTEGER2)*INTEGER2)  +  INTEGERl;  : 


Fl;  !  END  CASE  ! 
OPRACTION  +»  l; 
LOOPCOUNTER  +=»!; 
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1 


rr 


ir  OPRACnON  /  ?  THEN  OPRACTION  ;=  0  PI; 

C  00  I  -INO  .-<>(<  LOOPlOUNTER  .'•pom  0  TO  OPRACT lONLOOP': 

=ND  KERNEL! 

JLOBAj  ■tTtif  +  GLOBAL  DEFINITION  OF  MAIN  PROGRAii  ***<***-»i-i-t* 

-i'-AIN  PROCEDURE 

V 

O  (CONOUT,  »’£.£GIN  BENCHMARK  EKECU  f  I  ON  . 'IR ,  ’  '  • 

LOOPCOUNTER  ;=  U ? 

'*) 

LOOPCOUNTER  >  iiRRAYSIZE  THEN  EXIT  Hi! 

ARRA YE  C  LOOPCOiJN  TER  I  ^  =  LOOPCOUN  r=R  ! 

LOOPCOUNTER  +=  1! 

3  OG 

INBUFFERPTR  ;=  □! 

IF  INBUFFERPTR  >  BUFFERMAX  THEN  EXIT  Fl! 

TNgllFFERC  INBuPFSRPTR':  ••  =  'A'  ? 

INBUFFERPTR  +=  1! 


INBUFFERC iO j  :=  STARTCOOE; 

ENBIIFFERPTR  :  =  0  ! 

OUTBUFFERPTR  !=  Cl! 

TIMINGLOOPER  G; 

OO 

1“  TIMINGLOOPER  >  T IMINGCONTROL  THEN  EXIT  FI; 

KERNEL! 

TIMINGLOOPER  +=  l! 

00 

PUTCHARS(CONOUT  ,  ijilIXEDTYPE  .  CHARBUFFERL03 .  BUFfERMAX  +  1)! 
PUTINrEGSR(CONOUT,  MIXSDTYPE . INTNUMBER ) ! 


Or'-^  PUTSTRING  (CONOUT,  !*’XREND  EXECUTION .  XR/ ’)  ! 
''  ENO  MAIN? 

END  DCT BENCHMARK!  i  END  MODULE  ! 


O 


O 


O 

o 
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AFFESDIX  C 

DCT/HOL  STUDY  BENCHNABK 
PEOGRAN  RESULTS 


This  appendix  contains  infoxmation  generated  by  running  benctamarlc 
programs  using  the  candidate  languages. 


i 

•  ' 

i 

I 

I " 

I  ■■ 

I 


O 


o 


C-1 


o 


BE^ 


Table  C-1 .  CCT  HOL  Sumnary  Beaetamark  Results 


Language 

Executive  Tine 
(Kin:  Sec) 

#  B^tea  Absolute 
Object  Code(No  I/O) 

Program  Support 
Environment 

Compile 

Time 

o 

Interactive  C 

:58.5 

1286 

PDP-11/70  UHIX 

:45 

Vbltesmlth  C 

1:00 

2538 

CP/M 

5:17 

o 

RORTRAR-aO 

4.03 

3570 

CP/M 

1:47 

RAT70R 

3:43 

3925 

CP/M 

3:01 

Pascal/NT 

1:36 

3298 

CP/M 

:52 

Pascal/Z 

2:ta 

2304 

CP/M 

3:01 

PLI-aO  , 

2:30 

4514 

CP/M 

2:17 

PLMZ 

:59 

1759 

CP/M 

7:00 

o 

PLZ 

2:4a  ^ 

2165 

ZILOG 

4:00 

(1 )  Corrected 

for  2.5  KHZ  zao 

°o 


o 


Q 


O 


o 

o 

G  C-2 


APPEHLIX  D 

DELPHI  PHASE  1 :  DERIVATION  OF  WEIGHTS 

This  appendix  presents  the  statistical  results  of  Phase  1  of  the 
Delphi!  study.  The  object  of  Phase  1  was  to  assign  weights  to  the 
various  language  features. 


Table  D-l.  Phase  1  Delphi  Study  Statlatical  Sumoary 


WEIGHT 


FEATURE 


Figur*  D 


137.5-^  DATA  REPRESENTATION 


124 


107 


95 


74  • 
67.4- 


57.2- 

55.5- 


SYSTEMS  PROGRAMING 


CONTROL  STRUCTURES 


PROGRAM  SUPP.  ENV. 


DOCUMENTATION 

READABILITY 


49  - 
45.2- 


31.5. 


27.5 
25 


12. 


TIME  EFFICIENCY 
'^SPACE  EFFICIENCY 


EXTENT  OF  USE 
ASSEMBLY  LANG.  LINKAGE 


,TGT  CPU  TRANSPORTABILITY 
&  LEARNABILITY 


31  1^  NSC800(Z80)  INST.  SET  USE 


MULTITASKING 

”PVeENTRANCY  &  RECURSION 
ROMable  OBJECT  CODE 


14.8 

14’.5=T^  COMPILE-TIME  EFFICIENCY 


PSE  SOFTWARE  TRANSPORTABILITY 


-1.  Ranking  of  Fucurna 


o 


D-4 


8737  .3455 


FSB  SOrrWARB  TRANSPORTABILITY  I  2  6  I  10  I  10  I  10  I  10  I  10  I  15  I  20  I  30  I  123  I  1 2.3  I  7-8322  I  .6368 


APPENDIX  E 

DELPHI  PHASE  2:  DERIVATIONS 
OF  SCORES  AND  FIGURES 
OP  MERIT 


This  appendix  presents  the  statistical  results  of  Phase  2  of  the 
Delphi  study*  The  object  of  Phase  2  was  to  assign  gross  scores  and 
figures  of  merit  to  each  language  based  upon  the  weights  of  the  various 
language  features  assigned  in  Phase  1 . 
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Summary  (2nd  Iteration) 


Table  E-3.  Delphi  Study — Phase  2  Summary  (3rd  Iteration — MCTSSA) 


Table  B-4.  Delphi  Study — Phase  2  Suwsary  (3rd  Iteration — NOSC  Included) 


*toiai  without  ttao,  coapll«-tt«i  offloWocy 


FOM 


LANGUAGE 


rifur*  B-: 


800 


700 


695 

678 

669 

657 


619 

617 

607 


600 


554 


500 


483 


PASCAL/MT 

PASCAL/Z 

INTERACTIVE  C 
WHITESMITH  C 

^PLMX 


1/ 

F  PLZ 

PL I -80 


RATFOR 


h  FORTRAN 


U  Figures  of  Heric  without  Benchaerk  V«1um 
E-6 


run 


LANGUAGE 


800 


797 

763 


743 

737 


718 


"^PASCAL/Z 
—  PLMX 


700 


673 

6^ 


600 


591 


522 


500 


INTERACTIVE  C 
PASCAL/MT 


WHITESMITH  C 


PLZ 


PLI-80 


h-  RATFOR 


FORTRAN 


Figure  E-2.  Final  Figures  of  Merit 


